X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcache.lisp;h=74650817f87288d6ff66d1b7fa53ede8271e52ef;hb=fb03344c5e8388e0b16512f1cb662d8cf5d13972;hp=5eb5930fb0ef19e877629e873e7e41ff168c58b1;hpb=4910cad99c5f9c86db7029eadc46a94bdb309d39;p=sbcl.git

diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp
index 5eb5930..7465081 100644
--- a/src/pcl/cache.lisp
+++ b/src/pcl/cache.lisp
@@ -268,7 +268,9 @@
                         (aver (eq (classoid-pcl-class found) class))
                         found))
                      (t
-                      (make-standard-classoid :pcl-class class))))
+                      (let ((name (slot-value class 'name)))
+                        (make-standard-classoid :pcl-class class
+                                                :name (and (symbolp name) name))))))
               (t
                (make-random-pcl-classoid :pcl-class class))))))
     (t