0.pre7.129:

[sbcl.git] / src / code / fop.lisp

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 5d67fee..417a12c 100644 (file)
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -650,7 +650,7 @@ bug.~:@>")
     (unless (zerop (logand offset sb!vm:lowtag-mask))
       (error "internal error: unaligned function object, offset = #X~X"
             offset))
-    (let ((fun (%primitive sb!c:compute-function code-object offset)))
+    (let ((fun (%primitive sb!c:compute-fun code-object offset)))
       (setf (%simple-fun-self fun) fun)
       (setf (%simple-fun-next fun) (%code-entry-points code-object))
       (setf (%code-entry-points code-object) fun)