X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=137f74dcbe3e583725f316bec927833a9340197e;hb=c0595e94aab165f59454a3a97f06a8bdc22f5bd3;hp=f62e112e680497ebb95d8852001ce1894893ffdd;hpb=57e21c4b62e8c1a1ee7ef59ed2abb0c864fb06bc;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index f62e112..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))))))
 
@@ -1502,7 +1502,7 @@
 				    (namestring input-pathname))))
 	  (when trace-file
 	    (let* ((default-trace-file-pathname
-		     (make-pathname :type "ntrace" :defaults input-pathname))
+		     (make-pathname :type "trace" :defaults input-pathname))
 		   (trace-file-pathname
 		    (if (eql trace-file t)
 			default-trace-file-pathname