time bug fix

Hi,

I locally patched function roll in file sql/time.lisp, not sure what was meant
by the ignore declaration... The diff versus version 3.3.4:

@@ -1060,9 +1054,8 @@
                         (* 60 minute)
                         (* 60 60 hour))))
                1000000)
-      (declare (ignore sec-new))
       (multiple-value-bind (mjd-new sec-new)
-          (floor sec (* 60 60 24))
+          (floor sec-new (* 60 60 24))
         (if destructive
             (progn
               (setf (time-mjd date) (+ mjd mjd-new day)

(Otherwise, adding a duration to a time would return the original time.)

Alex


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