@@ -150,7 +150,11 @@
(defun parse-date (date)
(declare (string date))
- (parse 'whole date))
+ (let ((date (parse 'whole date)))
+ (multiple-value-bind (second minute hour date month year day daylight-p zone) (decode-universal-time date)
+ (declare (ignorable day daylight-p zone))
+ (values date
+ (list second minute hour date month year)))))
(defun print-date (date)
(declare (integer date))
