one more time.lisp patch

Hi,

Line numbers are wrt. my older local copy, but you can see that usec was
missing.

Alex

@@ -932,9 +938,9 @@
     (print-date time style)))
 
 (defun print-date (time &optional (style :daytime))
-  (multiple-value-bind (usec second minute hour day month year dow)
+  (multiple-value-bind (second minute hour day month year dow)
       (decode-time time)
-    (declare (ignore usec second))
+    (declare (ignore second))
     (multiple-value-bind (hours meridian)
         (time-meridian hour)
       (ecase style
@@ -967,9 +973,8 @@
          (format nil "~d/~d/~d" month day year))))))
 
 (defun time-element (time element)
-  (multiple-value-bind (usec second minute hour day month year dow)
+  (multiple-value-bind (second minute hour day month year dow)
       (decode-time time)
-    (declare (ignore usec))
     (ecase element
       (:seconds
        second)


	
		
__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com