(def dl> (dl1 dl2) (let (y1 m1 d1 y2 m2 d2) (join dl1 dl2) (or (> y1 y2) . . .
(def dl> (dl1 dl2) (with ((y1 m1 d1) dl1 (y2 m2 d2) dl2) (or (> y1 y2) . . .
-----