0.pre7.127:

[sbcl.git] / src / pcl / init.lisp

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index 927eb47..a1821ec 100644 (file)
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -132,13 +132,13 @@
   (when (eq slot-names t)
     (return-from shared-initialize
       (call-initialize-function
-       (initialize-info-shared-initialize-t-function
+       (initialize-info-shared-initialize-t-fun
        (initialize-info (class-of instance) initargs))
        instance initargs)))
   (when (eq slot-names nil)
     (return-from shared-initialize
       (call-initialize-function
-       (initialize-info-shared-initialize-nil-function
+       (initialize-info-shared-initialize-nil-fun
        (initialize-info (class-of instance) initargs))
        instance initargs)))
   ;; Initialize the instance's slots in a two step process: