X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fcompile-cold-sbcl.lisp;h=c2017d3a0b6c819750464ed81b44937a26de71e1;hb=44c608efa2e73df1c1ab7e259db405b9060c64a1;hp=465236d24aefddaed32ff85fe57d0fddcba5c21f;hpb=f507f3a114145ef30b166db7a18a5cca4d78f80c;p=sbcl.git diff --git a/src/cold/compile-cold-sbcl.lisp b/src/cold/compile-cold-sbcl.lisp index 465236d..c2017d3 100644 --- a/src/cold/compile-cold-sbcl.lisp +++ b/src/cold/compile-cold-sbcl.lisp @@ -21,10 +21,10 @@ (unless (position :not-target flags) (push (target-compile-stem stem :trace-file (find :trace-file flags) - :assem-p (find :assem flags) - :ignore-failure-p (find :ignore-failure-p - flags)) - reversed-target-object-file-names) + :assem-p (find :assem flags) + :ignore-failure-p (find :ignore-failure-p + flags)) + reversed-target-object-file-names) #!+sb-show (warn-when-cl-snapshot-diff *cl-snapshot*))) (setf *target-object-file-names* - (nreverse reversed-target-object-file-names))) + (nreverse reversed-target-object-file-names)))