Changeset 10445


Ignore:
Timestamp:
Aug 12, 2008, 4:02:44 AM (11 years ago)
Author:
rme
Message:

In GET-TIMEZONE, test whether the passed in time fits in a signed word
(time_t is signed).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/time.lisp

    r10054 r10445  
    5555;;; value to get the time zone and assume that DST was -not- in effect.
    5656(defun get-timezone (time)
    57   (let* ((toobig (not (typep time '(unsigned-byte
     57  (let* ((toobig (not (typep time '(signed-byte
    5858                                    #+32-bit-target 32
    5959                                    #+64-bit-target 64)))))
Note: See TracChangeset for help on using the changeset viewer.