0.pre7.54:

[sbcl.git] / src / compiler / generic / target-core.lisp

diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp
index b09a66f..b9f1c7b 100644 (file)
--- a/src/compiler/generic/target-core.lisp
+++ b/src/compiler/generic/target-core.lisp
@@ -29,7 +29,7 @@
       (setf (%code-entry-points code-obj) res)
       (setf (%function-name res) (entry-info-name entry))
       (setf (%function-arglist res) (entry-info-arguments entry))
-      (setf (%function-type res) (entry-info-type entry))
+      (setf (%fun-type res) (entry-info-type entry))
 
       (note-function entry res object))))