0.pre7.54:

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

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index f7d5098..96da12e 100644 (file)
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -651,7 +651,7 @@ bug.~:@>")
       (setf (%code-entry-points code-object) fun)
       (setf (%function-name fun) name)
       (setf (%function-arglist fun) arglist)
-      (setf (%function-type fun) type)
+      (setf (%fun-type fun) type)
       ;; FIXME: See the comment about *LOAD-PRINT* in FOP-EVAL.
       #+nil (when *load-print*
              (load-fresh-line)