Optimize (mod FIXNUM) type-checks on x86oids.

[sbcl.git] / src / code / interr.lisp

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index fb16a77..18c571e 100644 (file)
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -106,6 +106,11 @@
          :datum object
          :expected-type 'fixnum))
 
+(deferr object-not-mod-error (object limit)
+  (error 'type-error
+         :datum object
+         :expected-type `(mod ,(1+ limit))))
+
 (deferr object-not-vector-error (object)
   (error 'type-error
          :datum object