X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=cd9d77524cfdb73ab248c94153e6f00a1a05b22b;hb=f143939b1dbaf38ebd4f92c851fbc4ecddf37af1;hp=d85ca7d978c8ab6cb86bc8f6bcd43455009b7902;hpb=be9eb6c67b5f43a095c3de17bea945c309d662e4;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index d85ca7d..cd9d775 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1655,7 +1655,7 @@ bootstrapping.
 
 (defun make-early-gf (spec &optional lambda-list lambda-list-p function)
   (let ((fin (allocate-funcallable-instance *sgf-wrapper* *sgf-slots-init*)))
-    (set-funcallable-instance-function
+    (set-funcallable-instance-fun
      fin
      (or function
 	 (if (eq spec 'print-object)