@@ -49,7 +47,7 @@ is divisible by four but not by 100 or if it is divisible by 400."
(=(modyear400)0)))
(defunday-of-year(date)
"Returns the day of the year [1 to 366] of the specified date [which must be \(CL\) universal time format.]"
"Returns the day of the year [1 to 366] of the specified date [which must be \(CL\) universal time format.]"
(let((leap-year?(leap-year-p(time-yeardate))))
(+(loopformonthfrom1to(1-(time-monthdate))sum
(days-in-monthmonthleap-year?))
...
...
@@ -71,7 +69,7 @@ is divisible by four but not by 100 or if it is divisible by 400."
"Returns the name of `day-of-the-week`. The parameter should be a number between 0 and 6 where 0 represents Sunday and 6 repressents Saturday. The optional format argument can be either :long or :short. In the latter case, the return string will be of length three; in the former it will be the complete name of the appropriate day."