gencgc: More precise conservatism for pointers to boxed pages.

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

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 18c571e..f6b1692 100644 (file)
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -106,11 +106,6 @@
          :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
@@ -188,6 +183,17 @@
                  (symbol fdefn-or-symbol)
                  (fdefn (fdefn-name fdefn-or-symbol)))))
 
+#!+x86-64
+(deferr undefined-alien-fun-error (address)
+  (error 'undefined-alien-function-error
+         :name
+         (and (integerp address)
+              (sap-foreign-symbol (int-sap address)))))
+
+#!-x86-64
+(defun undefined-alien-fun-error ()
+  (error 'undefined-alien-function-error))
+
 (deferr invalid-arg-count-error (nargs)
   (error 'simple-program-error
          :format-control "invalid number of arguments: ~S"
@@ -529,9 +535,6 @@
 (defun undefined-alien-variable-error ()
   (error 'undefined-alien-variable-error))
 
-(defun undefined-alien-function-error ()
-  (error 'undefined-alien-function-error))
-
 #!-win32
 (define-alien-variable current-memory-fault-address unsigned)