X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=849e499390873103dd2e119a7edbd3d84cbdc2e5;hb=355e6c09a8f7f528a838f7a50b99ad77811b51a2;hp=d0e5c0484b3bf1f583e3bde17b6462d2cdf0c8d8;hpb=d984db0864aa7ba5155ec684462840ec1a49ca5b;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index d0e5c04..849e499 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1526,7 +1526,7 @@
          (update-dfun gf dfun cache info))))))
 
 (defmethod (setf class-name) (new-value class)
-  (let ((classoid (%wrapper-classoid (class-wrapper class))))
+  (let ((classoid (wrapper-classoid (class-wrapper class))))
     (if (and new-value (symbolp new-value))
         (setf (classoid-name classoid) new-value)
         (setf (classoid-name classoid) nil)))