[armedbear-cvs] r14208 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Oct 21 06:40:48 2012
New Revision: 14208

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/typep.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/typep.lisp	Sat Oct 20 03:39:03 2012	(r14207)
+++ trunk/abcl/src/org/armedbear/lisp/typep.lisp	Sun Oct 21 06:40:48 2012	(r14208)
@@ -177,6 +177,11 @@
        (and (simple-typep object 'nil-vector)
             (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
               :format-control "~S types are not a legal argument to TYPEP: ~S"