[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv31709

Modified Files:
	swank.lisp 
Log Message:
(format-iso8601-time): Properly handle non integer time zones.


--- /project/slime/cvsroot/slime/swank.lisp	2006/09/13 14:31:41	1.397
+++ /project/slime/cvsroot/slime/swank.lisp	2006/09/13 15:25:17	1.398
@@ -4503,7 +4503,7 @@
                    ;; Tricky.  Sign of time zone is reversed in ISO 8601
                    ;; relative to Common Lisp convention!
                    (format nil "~:[+~;-~]~2,'0D:~2,'0D"
-                           (> zone 0) h (round m))))))
+                           (> zone 0) h (round (* 60 m)))))))
     (multiple-value-bind (second minute hour day month year dow dst zone)
       (decode-universal-time time-value)
       (declare (ignore dow dst))