X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Finit.lisp;h=a1821ec0983dc334d268679cac5a9b010b79e082;hb=1dfcd0ed5fc81f4355101c1eeb990a1f7d089e40;hp=927eb47b4cf11f756ebe395b514c673326e95ebf;hpb=ed7ba4dad8a79726fdfeba5aa12e276ea852c540;p=sbcl.git

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index 927eb47..a1821ec 100644
--- 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: