Changeset 9007


Ignore:
Timestamp:
Apr 4, 2008, 6:18:25 AM (11 years ago)
Author:
gb
Message:

milliseconds/microseconds/nanoseconds: accept maximum signed natural
integer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r8990 r9007  
    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.