Changeset 14208


Ignore:
Timestamp:
10/21/12 13:40:48 (8 years ago)
Author:
ehuelsmann
Message:

Re #253: BABEL-TESTS fail to compile; make ABCL understand the MOD type spec.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/typep.lisp

    r11391 r14208  
    178178            (or (endp i)
    179179                (eql (%car i) (length object)))))
     180      (MOD
     181       (and (integerp object)
     182            (or (zerop object)
     183                (and (plusp object)
     184                     (< object (second type))))))
    180185      ((FUNCTION VALUES)
    181186       (error 'simple-error
Note: See TracChangeset for help on using the changeset viewer.