Skip to content
Snippets Groups Projects
Commit e9c497d7 authored by Alex Goncharov's avatar Alex Goncharov
Browse files

compiler/main.lisp: Improve the doc strings for compile-file and compile-file-pathname.

Unify the use of the FASL and NIL words across all documentation strings in this file.
parent 987c3f20
No related branches found
No related tags found
No related merge requests found
...@@ -1801,12 +1801,19 @@ ...@@ -1801,12 +1801,19 @@
*byte-compile-default*) *byte-compile-default*)
((:xref *record-xref-info*) ((:xref *record-xref-info*)
*record-xref-info*)) *record-xref-info*))
"Compiles Source, producing a corresponding .FASL file. Source may be a list "Compiles Source, producing a corresponding FASL file. Source may be a list
of files, in which case the files are compiled as a unit, producing a single of files, in which case the files are compiled as a unit, producing a single
.FASL file. The output file names are defaulted from the first (or only) FASL file. The output file names are defaulted from the first (or only)
input file name. Other options available via keywords: input file name. (The use of a list for Source is a CMUCL extension, not
specified in CLHS.)
These keywords are supported:
:Output-File :Output-File
The name of the fasl to output, NIL for none, T for the default. The name of the FASL to output, NIL for none, T for the default. (Note the
difference between the treatment of NIL :Output-File here and in COMPILE-FILE-PATHNAME.)
The returned pathname of the output file may differ from the pathname of the
:Output-File parameter, e.g. when the latter is a designator for a directory.
:Load :Load
Load the compiled file; T here requires :Output-File to be non-NIL, as well. Load the compiled file; T here requires :Output-File to be non-NIL, as well.
The default for :Load is NIL. The default for :Load is NIL.
...@@ -1848,7 +1855,7 @@ ...@@ -1848,7 +1855,7 @@
The external format to use when opening the source file. The external format to use when opening the source file.
:Decoding-Error :Decoding-Error
How to handle decoding errors in the external format when reading the How to handle decoding errors in the external format when reading the
source file. Default (T) is to signal an error. Nil means silently source file. Default (T) is to signal an error. NIL means silently
continue, replacing the invalid sequence with a suitable replacment continue, replacing the invalid sequence with a suitable replacment
character." character."
(let* ((fasl-file nil) (let* ((fasl-file nil)
...@@ -2001,7 +2008,7 @@ ...@@ -2001,7 +2008,7 @@
be compiled. IF NAME names a macro, then the compiled expression be compiled. IF NAME names a macro, then the compiled expression
replaces the existing macro-function. If NAME names a function, the replaces the existing macro-function. If NAME names a function, the
compiled expression is placed in the function cell of NAME. If NAME compiled expression is placed in the function cell of NAME. If NAME
is Nil, the compiled code object is returned." is NIL, the compiled code object is returned."
(with-compilation-unit () (with-compilation-unit ()
(with-ir1-namespace (with-ir1-namespace
(let* ((*backend* *native-backend*) (let* ((*backend* *native-backend*)
...@@ -2128,8 +2135,10 @@ ...@@ -2128,8 +2135,10 @@
(byte-compile *byte-compile-default*) (byte-compile *byte-compile-default*)
(output-file t output-file-supplied-p) (output-file t output-file-supplied-p)
&allow-other-keys) &allow-other-keys)
"Return a pathname describing what file COMPILE-FILE would write to given "Return a pathname describing what file COMPILE-FILE would write to given these arguments.
these arguments." The returned pathname of the output file may differ from the pathname of the :Output-File
parameter, e.g. when the latter is a designator for a directory. The CMUCL caveat: NIL is
accepted for :Output-File there but not here, which is probably not in line with CLHS."
(declare (type (or string pathname stream) input-file) (declare (type (or string pathname stream) input-file)
(type (or string pathname stream (member t)) output-file) (type (or string pathname stream (member t)) output-file)
(values (or null pathname))) (values (or null pathname)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment