X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcodegen.lisp;h=7a176808c428f5ee6901911528c7b17a61a20b12;hb=cf4cb9554515c59eddbde38d1cf236339c37f55f;hp=3b51f499d4b8c81102b0ed1cf56bd6d7bf02df2b;hpb=7fd2eb4b1bc68e8aaec233c4a39bdfc40225bda2;p=sbcl.git

diff --git a/src/compiler/codegen.lisp b/src/compiler/codegen.lisp
index 3b51f49..7a17680 100644
--- a/src/compiler/codegen.lisp
+++ b/src/compiler/codegen.lisp
@@ -123,7 +123,7 @@
 	(*trace-table-info* nil)
 	(*prev-segment* nil)
 	(*prev-vop* nil)
-	(*fixups* nil))
+	(*fixup-notes* nil))
     (let ((label (sb!assem:gen-label)))
       (setf *elsewhere-label* label)
       (sb!assem:assemble (*elsewhere*)
@@ -153,7 +153,7 @@
     (setf *elsewhere* nil)
     (values (sb!assem:finalize-segment *code-segment*)
 	    (nreverse *trace-table-info*)
-	    *fixups*)))
+	    *fixup-notes*)))
 
 (defun emit-label-elsewhere (label)
   (sb!assem:assemble (*elsewhere*)