日付と時刻 metatilities

うるう年かどうか判定する

自作するか、ライブラリを利用する 下記では、ライブラリ:Metatilitiesを利用

(metatilities:leap-year-p 2000)
;=> T

(metatilities:leap-year-p 2001)
;=> nil

---

(defun leap-year-p ( y )
   (and (zerop (mod y 4))
       (or (plusp (mod y 100))(zerop (mod y 400)))))