doukaku.orgxyzzyでも動くよう、ごく普通に。 ;xyzzy用 ;(defmacro nth-value (n form) ; `(nth ,n (multiple-value-list ,form))) (do*((m 1 (1+ (mod m 12))) (y 2008 (+ y (if (= 1 m) 1 0))) (u 0 (encode-universal-time 0 0 0 13 m y)) (c 0)) ((< 201…