X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=0d6bebd8d8dfece62cd700c90b7b5f28cedc4930;hb=f1407e424f1063203af07d2e61ceef58515a4797;hp=8b63af8356de67d774b668b0bc5c22ac276d5d3e;hpb=a237d7e039a923e109a4eefbd4e6a563a2ba0521;p=sbcl.git diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp index 8b63af8..0d6bebd 100644 --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -1465,7 +1465,7 @@ (input-pathname (verify-source-file input-file)) (source-info (make-file-source-info input-pathname)) (*compiler-trace-output* nil)) ; might be modified below - + (unwind-protect (progn (when output-file