X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=a08b5000eb5686e313b79166b6286f99324b9e42;hb=2d3cb6dba6461e98744eca2a1df4f770cea468ca;hp=8d5b2f06844aca93d7156616131434ff457a224d;hpb=93c941d86b264637de20aa1b713757b704d4c1a6;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 8d5b2f0..a08b500 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -929,7 +929,8 @@
   (cond ((eq class *the-class-t*)
 	 t)
 	((eq class *the-class-slot-object*)
-	 `(not (cl:typep (cl:class-of ,arg) 'cl:built-in-class)))
+	 `(not (typep (sb-kernel:classoid-of ,arg)
+		      'sb-kernel:built-in-classoid)))
 	((eq class *the-class-std-object*)
 	 `(or (std-instance-p ,arg) (fsc-instance-p ,arg)))
 	((eq class *the-class-standard-object*)