Subject: Re: time zones, daylight saving time, and universal time
From: Erik Naggum <>
Date: Mon, 01 Apr 2002 13:44:44 GMT
Newsgroups: comp.lang.lisp
Message-ID: <>

* Will Fitzgerald
| I *think* this should always return the local time zone, and always
| return the same value whether or not daylight saving time is being
| observed:
| (defun current-time-zone ()
|   (multiple-value-bind (s m h d m y dd dp zone) (get-decoded-time)
|     (declare (ignore s m h d m y dd dp))
|     zone))
| And this should return whether the implementation thinks DST is being
| observed (locally) at this universal time:
| (defun dst-observed-p (universal-time)
|  (multiple-value-bind (s m h d m y dd daylight-p) 
|   (decode-universal-time universal-time)
|     (declare (ignore s m h d m y dd))
|     daylight-p))

  Are you aware of the function nth-value?

  In a fight against something, the fight has value, victory has none.
  In a fight for something, the fight is a loss, victory merely relief.