X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fboot.lisp;h=562ff1d6c9b11facb18cdcc2e3a51ca1ac20d909;hb=b3a419f10ad442a1c59d51edabdc70518f193648;hp=b1ef3f3ac6ac613e6ae5d3c9ce3cbe40507cf902;hpb=a736ac10b709b2d40305f0a6e3764afd246a8ef5;p=sbcl.git

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