0.pre7.55:

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

diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp
index 7a16f9b..95eced7 100644 (file)
--- a/src/pcl/braid.lisp
+++ b/src/pcl/braid.lisp
@@ -64,7 +64,7 @@
 (defun allocate-funcallable-instance (wrapper &optional
                                              (slots-init nil slots-init-p))
   (let ((fin (allocate-funcallable-instance-1)))
-    (set-funcallable-instance-function
+    (set-funcallable-instance-fun
      fin
      #'(sb-kernel:instance-lambda (&rest args)
         (declare (ignore args))