X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftypep.lisp;h=531b1ab4ff9c26f6dc7bcdd30f9d4073cdef4357;hb=ac93aa515b197d751dad85d70432ebc87fac420a;hp=ccd66417b68a4cece2df2e7b20c9c1bda1e825e9;hpb=75f37cd646778cc8d4bed86d79309b7161bd41dc;p=sbcl.git

diff --git a/src/code/typep.lisp b/src/code/typep.lisp
index ccd6641..531b1ab 100644
--- a/src/code/typep.lisp
+++ b/src/code/typep.lisp
@@ -199,7 +199,7 @@
         (aver (< i 2))
         (when (layout-invalid obj-layout)
           (setq obj-layout (update-object-layout-or-invalid object layout)))
-        (%ensure-classoid-valid classoid layout))
+        (%ensure-classoid-valid classoid layout "typep"))
     (let ((obj-inherits (layout-inherits obj-layout)))
       (or (eq obj-layout layout)
           (dotimes (i (length obj-inherits) nil)