Changeset 14208

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:

• trunk/abcl/src/org/armedbear/lisp/typep.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/typep.lisp

@@ -178 +178 @@
             (or (endp i)
                 (eql (%car i) (length object)))))
+      (MOD
+       (and (integerp object)
+            (or (zerop object)
+                (and (plusp object)
+                     (< object (second type))))))
       ((FUNCTION VALUES)
        (error 'simple-error