X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fslots.lisp;h=6b7b120b0edb5ad1044731f85f1a85770aea75c8;hb=1a405defbd26ca767e71494b67127fcc00a8af12;hp=f833fce72e74112497518ee81f798a99f3fc9fcd;hpb=0aecc2b20142e08068c3434273500131cb13fe2d;p=sbcl.git

diff --git a/src/pcl/slots.lisp b/src/pcl/slots.lisp
index f833fce..6b7b120 100644
--- a/src/pcl/slots.lisp
+++ b/src/pcl/slots.lisp
@@ -150,7 +150,7 @@
   (clos-slots-ref (fsc-instance-slots instance) location))
 
 (defmethod slot-value-using-class ((class std-class)
-                                   (object std-object)
+                                   (object standard-object)
                                    (slotd standard-effective-slot-definition))
   (check-obsolete-instance object)
   (let* ((location (slot-definition-location slotd))
@@ -176,7 +176,7 @@
 
 (defmethod (setf slot-value-using-class)
            (new-value (class std-class)
-                      (object std-object)
+                      (object standard-object)
                       (slotd standard-effective-slot-definition))
   (check-obsolete-instance object)
   (let ((location (slot-definition-location slotd)))
@@ -198,7 +198,7 @@
 
 (defmethod slot-boundp-using-class
            ((class std-class)
-            (object std-object)
+            (object standard-object)
             (slotd standard-effective-slot-definition))
   (check-obsolete-instance object)
   (let* ((location (slot-definition-location slotd))
@@ -222,7 +222,7 @@
 
 (defmethod slot-makunbound-using-class
            ((class std-class)
-            (object std-object)
+            (object standard-object)
             (slotd standard-effective-slot-definition))
   (check-obsolete-instance object)
   (let ((location (slot-definition-location slotd)))