Changeset 355


Ignore:
Timestamp:
Jan 20, 2004, 11:29:43 PM (21 years ago)
Author:
Gary Byers
Message:

(SIGNED-BYTE 1) is perfectly legal ...

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-typesys.lisp

    r318 r355  
    36233623(deftype signed-byte (&optional s)
    36243624  (cond ((eq s '*) 'integer)
    3625           ((and (integerp s) (> s 1))
     3625          ((and (integerp s) (> s 0))
    36263626           (let ((bound (ash 1 (1- s))))
    36273627             `(integer ,(- bound) ,(1- bound))))
Note: See TracChangeset for help on using the changeset viewer.