defmodule
date
files
(date)
export
(create-date short-string-date datep #:date:prin)

;;; Added automatically, don't type beyond this line.
cpexport
((create-date subr0 ()) (datep subr1 ()) (short-string-date subr1 ()) (#:date:
prin subr1 ()))
cpfunctions
((week-day-number subr1) (leap-number subr1) (year-day-number subr1) (
month-length subr2) (leap-year-p subr1))
cpimport
()