"July" "August" "September" "October" "November"
"December")
(1- mn))
- (format nil "~A" dy) (format nil "~A" yr)
+ (format nil "~A" dy)
+ (format nil "~A" yr)
(format nil "~2,'0D:~2,'0D:~2,'0D" hr min sec))))
+(defun pretty-date-ut (&optional (tm (get-universal-time)))
+ (multiple-value-bind (sec min hr dy mn yr) (decode-universal-time tm)
+ (pretty-date yr mn dy hr min sec)))
(defun date-string (ut)
(if (typep ut 'integer)