Changeset 8968


Ignore:
Timestamp:
Mar 30, 2008, 11:22:34 PM (11 years ago)
Author:
gb
Message:

NANOSECONDS, MILLISECONDS, MICROSECONDS: be more consistent about
wanting a non-negative real argument no greater than the largest
signed integer that fits in a #>time_t.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/linux-files.lisp

    r8931 r8968  
    4949  (unless (and (typep n 'fixnum)
    5050               (>= (the fixnum n) 0))
    51     (check-type n (real 0 #xffffffff)))
     51    (check-type n (real 0 #.(1- (ash 1 (1- target::nbits-in-word))))))
    5252  (multiple-value-bind (q r)
    5353      (floor n)
     
    6060  (unless (and (typep n 'fixnum)
    6161               (>= (the fixnum n) 0))
    62     (check-type n (real 0 #xffffffff)))
     62    (check-type n (real 0 #.(1- (ash 1 (1- target::nbits-in-word))))))
    6363  (multiple-value-bind (q r)
    6464      (floor n)
     
    7171  (unless (and (typep n 'fixnum)
    7272               (>= (the fixnum n) 0))
    73     (check-type n (real 0 #xffffffff)))
     73    (check-type n (real 0 #.(1- (ash 1 (1- target::nbits-in-word))))))
    7474  (multiple-value-bind (q r)
    7575      (floor n)
Note: See TracChangeset for help on using the changeset viewer.