From ...
Path: archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!supernews.com!newsfeed.online.be!newsfeeds.belnet.be!news.belnet.be!ossa.telenet-ops.be!nmaster.kpnqwest.net!nreader1.kpnqwest.net.POSTED!not-for-mail
Newsgroups: comp.lang.lisp
Subject: Re: time zones, daylight saving time, and universal time
References: <661755b5.0203291052.78c9d702@posting.google.com> <661755b5.0204010512.78a9a944@posting.google.com>
Mail-Copies-To: never
From: Erik Naggum <erik@naggum.net>
Message-ID: <3226657500167118@naggum.net>
Organization: Naggum Software, Oslo, Norway
Lines: 26
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.2
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Mon, 01 Apr 2002 13:44:44 GMT
X-Complaints-To: newsmaster@KPNQwest.no
X-Trace: nreader1.kpnqwest.net 1017668684 193.71.199.50 (Mon, 01 Apr 2002 15:44:44 MET DST)
NNTP-Posting-Date: Mon, 01 Apr 2002 15:44:44 MET DST
Xref: archiver1.google.com comp.lang.lisp:30688

* 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.