X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=855c9076893e2cfcf36917e204ce9265d242bb91;hb=5164d4bba99fa9d486ceb3aa65c6c7b136702a11;hp=437e1466a1d368183d69e343187f12e8157cdfb0;hpb=3cc4b17d770f3fe95e5e94f6ac39820784968c4d;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 437e146..855c907 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1485,6 +1485,10 @@
 	     (set-dfun gf dfun cache info) ; lest the cache be freed twice
 	     (update-dfun gf dfun cache info))))))
 
+(defmethod (setf class-name) :before (new-value (class class))
+  (let ((classoid (find-classoid (class-name class))))
+    (setf (classoid-name classoid) new-value)))
+
 (defmethod function-keywords ((method standard-method))
   (multiple-value-bind (nreq nopt keysp restp allow-other-keys-p keywords)
       (analyze-lambda-list (if (consp method)