On April 18 Leo Butler wrote:
-------------------
(defmvar $time_zone_offset nil
"The offset of the local time zone from GMT. This offset does
not account for daylight savings.")
(defun $timedate (&optional (tz-offset $time_zone_offset))
(multiple-value-bind
(second minute hour date month year day-of-week dst-p tz)
(if tz-offset (decode-universal-time (get-universal-time) tz-offset)
(decode-universal-time (get-universal-time)))
(declare (ignore day-of-week))
(let
((tz-offset (if dst-p (- 1 tz) (- tz))))
(multiple-value-bind
(tz-hours tz-hour-fraction)
(floor tz-offset)
(let
((tz-sign (if (< 0 tz-hours) #\+ #\-)))
(format nil "~4,'0d-~2,'0d-~2,'0d
~2,'0d:~2,'0d:~2,'0d~a~2,'0d:~2,'0d"
year month date hour minute second tz-sign (abs tz-hours)
(floor (* 60 tz-hour-fraction))))))))
Hi Ted,
I guess this is due to different Lisps behaving differently with a nil
tz-offset. The above code makes it explicit, and will fix your errors.
Leo
-----------------------------
Thanks for the new version, which will make all windows users
very happy.
Ted