Changeset 14208
- Timestamp:
- 10/21/12 13:40:48 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/typep.lisp
r11391 r14208 178 178 (or (endp i) 179 179 (eql (%car i) (length object))))) 180 (MOD 181 (and (integerp object) 182 (or (zerop object) 183 (and (plusp object) 184 (< object (second type)))))) 180 185 ((FUNCTION VALUES) 181 186 (error 'simple-error
Note: See TracChangeset
for help on using the changeset viewer.