Commit d05e3333 authored by Karsten Poeck's avatar Karsten Poeck
Browse files

Accidentaly deleted a genera customisation, restored

parent 3a3e1af7
...@@ -716,9 +716,10 @@ it will filter them appropriately." ...@@ -716,9 +716,10 @@ it will filter them appropriately."
(with-saved-deferred-warnings (warnings-file :source-namestring (namestring input-file)) (with-saved-deferred-warnings (warnings-file :source-namestring (namestring input-file))
(with-muffled-compiler-conditions () (with-muffled-compiler-conditions ()
(or #-(or clasp ecl mkcl) (or #-(or clasp ecl mkcl)
(apply 'compile-file input-file :output-file tmp-file (let (#+genera (si:*common-lisp-syntax-is-ansi-common-lisp* t))
#+sbcl (if emit-cfasl (list* :emit-cfasl tmp-cfasl keywords) keywords) (apply 'compile-file input-file :output-file tmp-file
#-sbcl keywords) #+sbcl (if emit-cfasl (list* :emit-cfasl tmp-cfasl keywords) keywords)
#-sbcl keywords))
#+ecl (apply 'compile-file input-file :output-file #+ecl (apply 'compile-file input-file :output-file
(if object-file (if object-file
(list* object-file :system-p t keywords) (list* object-file :system-p t keywords)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment