Added values expression

isodate.lisp

@@ -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))