...
 
Commits (1)
...@@ -698,9 +698,10 @@ it will filter them appropriately." ...@@ -698,9 +698,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)
(let (#+genera (si:*common-lisp-syntax-is-ansi-common-lisp* t))
(apply 'compile-file input-file :output-file tmp-file (apply 'compile-file input-file :output-file tmp-file
#+sbcl (if emit-cfasl (list* :emit-cfasl tmp-cfasl keywords) keywords) #+sbcl (if emit-cfasl (list* :emit-cfasl tmp-cfasl keywords) keywords)
#-sbcl 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)
...@@ -752,6 +753,7 @@ it will filter them appropriately." ...@@ -752,6 +753,7 @@ it will filter them appropriately."
(defun load* (x &rest keys &key &allow-other-keys) (defun load* (x &rest keys &key &allow-other-keys)
"Portable wrapper around LOAD that properly handles loading from a stream." "Portable wrapper around LOAD that properly handles loading from a stream."
(with-muffled-loader-conditions () (with-muffled-loader-conditions ()
(let (#+genera (si:*common-lisp-syntax-is-ansi-common-lisp* t))
(etypecase x (etypecase x
((or pathname string #-(or allegro clozure genera) stream #+clozure file-stream) ((or pathname string #-(or allegro clozure genera) stream #+clozure file-stream)
(apply 'load x keys)) (apply 'load x keys))
...@@ -764,7 +766,7 @@ it will filter them appropriately." ...@@ -764,7 +766,7 @@ it will filter them appropriately."
(*readtable* *readtable*) (*readtable* *readtable*)
(*load-pathname* nil) (*load-pathname* nil)
(*load-truename* nil)) (*load-truename* nil))
(eval-input x)))))) (eval-input x)))))))
(defun load-from-string (string) (defun load-from-string (string)
"Portably read and evaluate forms from a STRING." "Portably read and evaluate forms from a STRING."
......