X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=b5f382b70c28920d19bfe0af25a3da9ceb194805;hb=f143939b1dbaf38ebd4f92c851fbc4ecddf37af1;hp=96da12e055335de39995e440310184679ecf5ad6;hpb=be9eb6c67b5f43a095c3de17bea945c309d662e4;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 96da12e..b5f382b 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -646,12 +646,12 @@ bug.~:@>")
       (error "internal error: unaligned function object, offset = #X~X"
 	     offset))
     (let ((fun (%primitive sb!c:compute-function code-object offset)))
-      (setf (%function-self fun) fun)
-      (setf (%function-next fun) (%code-entry-points code-object))
+      (setf (%simple-fun-self fun) fun)
+      (setf (%simple-fun-next fun) (%code-entry-points code-object))
       (setf (%code-entry-points code-object) fun)
-      (setf (%function-name fun) name)
-      (setf (%function-arglist fun) arglist)
-      (setf (%fun-type fun) type)
+      (setf (%simple-fun-name fun) name)
+      (setf (%simple-fun-arglist fun) arglist)
+      (setf (%simple-fun-type fun) type)
       ;; FIXME: See the comment about *LOAD-PRINT* in FOP-EVAL.
       #+nil (when *load-print*
 	      (load-fresh-line)