Subject: Re: time zones, daylight saving time, and universal time From: Erik Naggum <erik@naggum.net> Date: Mon, 01 Apr 2002 13:44:44 GMT Newsgroups: comp.lang.lisp Message-ID: <3226657500167118@naggum.net> * 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.