X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=6b2809d136a56fa1f99664756a0073abe699e922;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=999faa38e8f99287addc66712aaf5e864ddbac3f;hpb=7306e23c5a4687bef98fdfb3459aaf15fe79d5ca;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 999faa3..6b2809d 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -662,7 +662,7 @@ a bug.~@:>")
   #+sb-xc-host ; since xc host doesn't know how to compile %PRIMITIVE
   (error "FOP-FUN-ENTRY can't be defined without %PRIMITIVE.")
   #-sb-xc-host
-  (let ((xrefs (pop-stack))
+  (let ((info (pop-stack))
         (type (pop-stack))
         (arglist (pop-stack))
         (name (pop-stack))
@@ -678,7 +678,7 @@ a bug.~@:>")
       (setf (%simple-fun-name fun) name)
       (setf (%simple-fun-arglist fun) arglist)
       (setf (%simple-fun-type fun) type)
-      (setf (%simple-fun-xrefs fun) xrefs)
+      (setf (%simple-fun-info fun) info)
       ;; FIXME: See the comment about *LOAD-PRINT* in FOP-EVAL.
       #+nil (when *load-print*
               (load-fresh-line)