X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=5bb783fb20a3eadf49d130c9e6f6e6c8b3f8546b;hb=72db452798256d266d5909bd330d9eb5b31c6f1e;hp=9a42a0cc1d824626ed85d8c4783c398e6ddbe153;hpb=481348f2f96f364374f669786f9fc61348decabc;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 9a42a0c..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))