Changeset 6919


Ignore:
Timestamp:
Jul 21, 2007, 10:15:37 PM (14 years ago)
Author:
gb
Message:

GET-TIMEZONE: conditionalize on target word size, not ppc32/ppc64.

File:
1 edited

Legend:

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

    r5915 r6919  
    5151;;; value to get the time zone and assume that DST was -not- in effect.
    5252(defun get-timezone (time)
    53   (let* ((toobig   (not (typep time '(signed-byte
    54                                       #+ppc32-target 32
    55                                       #+ppc64-target 64
    56                                       )))))
     53  (let* ((toobig (not (typep time '(unsigned-byte
     54                                    #+32-bit-target 32
     55                                    #+64-bit-target 64)))))
    5756    (when toobig
    5857      (setq time 0))
Note: See TracChangeset for help on using the changeset viewer.