X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fstd-class.lisp;h=441d488cc6819dfcd8deb77528ba9d313d620ccb;hb=40bf78b47ea89b15698adb9c550efa4cbacafeb7;hp=adb128253f52e3d3cad3e9abd00c9da8974e7646;hpb=ea652c139bb060d821f3010b3b106bdbcec983aa;p=sbcl.git

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index adb1282..441d488 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -553,18 +553,14 @@
                                     +slot-unbound+))
                                 direct-slots)))
          (reader-names (mapcar (lambda (slotd)
-                                 (intern (format nil
-                                                 "~A~A reader"
-                                                 conc-name
-                                                 (slot-definition-name
-                                                  slotd))))
+                                 (list 'slot-accessor name
+				       (slot-definition-name slotd)
+				       'reader))
                                direct-slots))
          (writer-names (mapcar (lambda (slotd)
-                                 (intern (format nil
-                                                 "~A~A writer"
-                                                 conc-name
-                                                 (slot-definition-name
-                                                  slotd))))
+                                 (list 'slot-accessor name
+				       (slot-definition-name slotd)
+				       'writer))
                                direct-slots))
          (readers-init
            (mapcar (lambda (slotd reader-name)
@@ -740,7 +736,7 @@
     (update-slots class (compute-slots class))
     (update-gfs-of-class class)
     (update-inits class (compute-default-initargs class))
-    (update-make-instance-function-table class))
+    (update-ctors 'finalize-inheritance :class class))
   (unless finalizep
     (dolist (sub (class-direct-subclasses class)) (update-class sub nil))))