defmodule
date
files
(libdate)
export
(create-date short-string-date long-string-date datep week-day-number 
leap-year-p eqdate <date <=date >date >=date /=date =date date-to-number 
number-to-date #:date:prin)

;;; Added automatically, don't type beyond this line.
cpexport
((create-date subr0 ()) (week-day-number subr1 ()) (datep subr1 ()) (
leap-year-p subr1 ()) (short-string-date subr1 ()) (long-string-date subr1 ())
(eqdate subr2 ()) (<date subr2 ()) (<=date subr2 ()) (>date subr2 ()) (>=date 
subr2 ()) (/=date subr2 ()) (=date subr2 ()) (date-to-number subr1 ()) (
number-to-date subr1 () (n) (date)) (#:date:prin subr1 ()))
cpfunctions
((leap-number subr1) (year-day-number subr1) (month-length subr2) (<?date 
subr3) (adjust-year subr0) (adjust-day subr0) (adjust-month subr0))
cpimport
()