X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=5bb783fb20a3eadf49d130c9e6f6e6c8b3f8546b;hb=5cd15f4133804a16c5d367556da160144e741852;hp=5b97d54edb8a84718a915b21665f0d1441e284fc;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 5b97d54..5bb783f 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -238,7 +238,7 @@
          :operands (list this that)))
 
 (deferr object-not-type-error (object type)
-  (error (if (and (typep object 'instance)
+  (error (if (and (%instancep object)
                   (layout-invalid (%instance-layout object)))
              'layout-invalid
              'type-error)
@@ -392,8 +392,6 @@
 
 ;;;; INTERNAL-ERROR signal handler
 
-(defvar *internal-error-args*)
-
 (defun internal-error (context continuable)
   (declare (type system-area-pointer context))
   (declare (ignore continuable))
@@ -463,4 +461,4 @@
   (error 'undefined-alien-function-error))
 
 (defun memory-fault-error ()
-  (error 'memory-fault-error))
\ No newline at end of file
+  (error 'memory-fault-error))