[Maxima-commits] CVS: maxima/src commac.lisp,1.51,1.52

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv24362/src

Modified Files:
	commac.lisp 
Log Message:
Take daylight saving time flag into account in $TIMEDATE output (was ignored before).
This might or might not fix bug report [ 1958163 ] timedate shows wrong time.
(Mistakenly committed to branch before, now committing to trunk.)

Index: commac.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/commac.lisp,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- commac.lisp	14 Mar 2008 18:44:24 -0000	1.51
+++ commac.lisp	15 May 2008 03:10:06 -0000	1.52
@@ -610,9 +610,8 @@
 (defun $timedate ()
   (multiple-value-bind (second minute hour date month year day-of-week dst-p tz)
       (get-decoded-time)
-    (declare (ignore dst-p))
     (format nil "~2,'0d:~2,'0d:~2,'0d ~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d/~2,'0d/~d (GMT~@d)"
-	    hour minute second day-of-week month date year (- tz))))
+	    hour minute second day-of-week month date year (if dst-p (- 1 tz) (- tz)))))
 
 ;;Some systems make everything functionp including macros:
 (defun functionp (x)