Browse files

allow builds with :trace-file flags even with non-sbcl host compilers

:allow-other-keys t is a marvellous thing
  • Loading branch information...
1 parent 47f408c commit 69d1abb6b1d8c7ef7e0728e87d10853a1306b16e @csrhodes csrhodes committed Sep 20, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/cold/shared.lisp
@@ -378,8 +378,8 @@
(multiple-value-bind (output-truename warnings-p failure-p)
(if trace-file
(funcall compile-file src :output-file tmp-obj
- :trace-file t)
- (funcall compile-file src :output-file tmp-obj ))
+ :trace-file t :allow-other-keys t)
+ (funcall compile-file src :output-file tmp-obj))
(declare (ignore warnings-p))
(cond ((not output-truename)
(error "couldn't compile ~S" src))

0 comments on commit 69d1abb

Please sign in to comment.