X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=18c571e634de045250a0c9562385551d7d9de478;hb=a3d4610158f227d53cb5eac287dd2661e975fc70;hp=b870da5cf121cb9f65957d9b2ad8377c35571fb5;hpb=3ad133e59f34948ba38013d8de1e9122f2729805;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index b870da5..18c571e 100644
--- 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
@@ -330,6 +335,12 @@
          :datum object
          :expected-type '(complex long-float)))
 
+#!+sb-simd-pack
+(deferr object-not-simd-pack-error (object)
+  (error 'type-error
+         :datum object
+         :expected-type 'simd-pack))
+
 (deferr object-not-weak-pointer-error (object)
   (error 'type-error
          :datum object