判断闰年的函数

(defun leap? (y)
       (and (zerop (mod y 4))
        (or (zerop (mod y 400))
            (not (zerop (mod y 100))))))

说明

闰年：

普通年：能被4整除

世纪年：能被400整除