[mcclim-cvs] CVS update: mcclim/Apps/Inspector/inspector.lisp

[Vincent Arkesteijn]

Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector
In directory common-lisp.net:/tmp/cvs-serv4106

Modified Files:
	inspector.lisp 
Log Message:
Bug fix: printed iso 8601 time stamp claims to be in UTC (as indicated 
by the trailing Z), but was in local time.

Date: Tue Sep 13 13:07:41 2005
Author: varkesteijn

Index: mcclim/Apps/Inspector/inspector.lisp
diff -u mcclim/Apps/Inspector/inspector.lisp:1.32 mcclim/Apps/Inspector/inspector.lisp:1.33
--- mcclim/Apps/Inspector/inspector.lisp:1.32	Tue Apr 26 23:35:24 2005
+++ mcclim/Apps/Inspector/inspector.lisp	Tue Sep 13 13:07:40 2005
@@ -599,7 +599,7 @@
   "Return the given universal time in ISO 8601 format. This will raise
 an error if the given time is not a decodable universal time."
   (multiple-value-bind (sec min hour date month year)
-      (decode-universal-time time)
+      (decode-universal-time time 0)
     (format nil "~4,'0D-~2,'0D-~2,'0DT~2,'0D:~2,'0D:~2,'0DZ"
 	    year month date hour min sec)))