X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=137f74dcbe3e583725f316bec927833a9340197e;hb=f73c1f391342c797b8daebe4e8c27e5923341b6d;hp=6a2d2bf7901a7593abb4d4140e2dae247d9dc00d;hpb=45e4225c7ceae7328b6951770f654932438ed266;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 6a2d2bf..137f74d 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -442,7 +442,7 @@
 	    (describe-ir2-component component *compiler-trace-output*))
 
 	  (maybe-mumble "code ")
-	  (multiple-value-bind (code-length trace-table fixups)
+	  (multiple-value-bind (code-length trace-table fixup-notes)
 	      (generate-code component)
 
             #-sb-xc-host
@@ -459,7 +459,7 @@
 				    *code-segment*
 				    code-length
 				    trace-table
-				    fixups
+				    fixup-notes
 				    *compile-object*))
 	      (core-object
 	       (maybe-mumble "core")
@@ -467,7 +467,7 @@
 				    *code-segment*
 				    code-length
 				    trace-table
-				    fixups
+				    fixup-notes
 				    *compile-object*))
 	      (null))))))