0.pre7.127:

[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 dcc4a97..aedc131 100644 (file)
--- a/src/compiler/generic/target-core.lisp
+++ b/src/compiler/generic/target-core.lisp
@@ -31,7 +31,7 @@
       (setf (%simple-fun-arglist res) (entry-info-arguments entry))
       (setf (%simple-fun-type res) (entry-info-type entry))
 
-      (note-function entry res object))))
+      (note-fun entry res object))))
 
 ;;; Dump a component to core. We pass in the assembler fixups, code
 ;;; vector and node info.