":GENCGC and :CHENEYGC are incompatible")
("(and cheneygc (not (or alpha hppa mips ppc sparc)))"
":CHENEYGC not supported on selected architecture")
- ("(and gencgc (not (or ppc x86 x86-64)))"
+ ("(and gencgc (not (or sparc ppc x86 x86-64)))"
":GENCGC not supported on selected architecture")
("(not (or gencgc cheneygc))"
"One of :GENCGC or :CHENEYGC must be enabled")
(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))