mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

COMPILE-FILE admits the keyword argument :EXTERNAL-FORMAT.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-17 19:48:33 +01:00
parent 1941458e0d
commit 32c75cd640
3 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/CHANGELOG
View file

@ -104,6 +104,8 @@ and important fixes to let ECL work better with Slime.
- SOCKET-MAKE-STREAM defaults :BUFFERING to :FULL and allows three new keyword
arguments, :INPUT, :OUTPUT and :EXTERNAL-FORMAT, as in SBCL.
- COMPILE-FILE admits the keyword argument :EXTERNAL-FORMAT.
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

4
src/cmp/cmpmain.lsp
View file

@ -565,6 +565,7 @@ static cl_object VV[VM];
(shared-data-file nil)
(system-p nil)
(load nil)
(external-format :default)
output-file
&aux (*standard-output* *standard-output*)
(*error-output* *error-output*)
@ -649,7 +650,8 @@ compiled successfully, returns the pathname of the compiled file"
with the flag :SYSTEM-P set to T."))
(data-init))
(with-open-file (*compiler-input* *compile-file-pathname*)
(with-open-file (*compiler-input* *compile-file-pathname*
:external-format external-format)
(do* ((ext:*source-location* (cons *compile-file-pathname* 0))
(*compile-file-position* 0 (file-position *compiler-input*))
(form (si::read-object-or-ignore *compiler-input* eof)

4
src/new-cmp/cmpmain.lsp
View file

@ -447,6 +447,7 @@ static cl_object VV[VM];
(shared-data-file nil)
(system-p nil)
(load nil)
(external-format :default)
output-file
&aux (*standard-output* *standard-output*)
(*error-output* *error-output*)
@ -535,7 +536,8 @@ compiled successfully, returns the pathname of the compiled file"
(if system-p :object :fasl)))
(with-t1expr (init-name)
(with-open-file (*compiler-input* *compile-file-pathname*)
(with-open-file (*compiler-input* *compile-file-pathname*
:external-format external-format)
(do* ((ext:*source-location* (cons *compile-file-pathname* 0))
(*compile-file-position* 0 (file-position *compiler-input*))
(form (si::read-object-or-ignore *compiler-input* eof)