- cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-18-ge9c497d
by Alex Goncharov 13 Oct '11

13 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via e9c497d7156a43a4acb77c26e392fb47f9c47552 (commit) from 987c3f200c854ede9196132e517756c5d4421239 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit e9c497d7156a43a4acb77c26e392fb47f9c47552 Author: Alex Goncharov <alex-goncharov(a)comcast.net> Date: Thu Oct 13 00:11:25 2011 -0400 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. diff --git a/compiler/main.lisp b/compiler/main.lisp index a4bbefd..9e16830 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1801,12 +1801,19 @@ *byte-compile-default*) ((:xref *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 - .FASL file. The output file names are defaulted from the first (or only) - input file name. Other options available via keywords: + FASL file. The output file names are defaulted from the first (or only) + input file name. (The use of a list for Source is a CMUCL extension, not + specified in CLHS.) + + These keywords are supported: + :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 the compiled file; T here requires :Output-File to be non-NIL, as well. The default for :Load is NIL. @@ -1848,7 +1855,7 @@ The external format to use when opening the source file. :Decoding-Error 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 character." (let* ((fasl-file nil) @@ -2001,7 +2008,7 @@ be compiled. IF NAME names a macro, then the compiled expression replaces the existing macro-function. If NAME names a function, the 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-ir1-namespace (let* ((*backend* *native-backend*) @@ -2128,8 +2135,10 @@ (byte-compile *byte-compile-default*) (output-file t output-file-supplied-p) &allow-other-keys) - "Return a pathname describing what file COMPILE-FILE would write to given - these arguments." + "Return a pathname describing what file COMPILE-FILE would write to given 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) (type (or string pathname stream (member t)) output-file) (values (or null pathname))) ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 25 +++++++++++++++++-------- 1 files changed, 17 insertions(+), 8 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-17-g987c3f2
by Alex Goncharov 12 Oct '11

12 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 987c3f200c854ede9196132e517756c5d4421239 (commit) via c78ad0faeb5c8518124d55757c2b868ae8b97dfb (commit) from 1e5b21e28d58b1b16a36111967e2ee77464cafbd (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 987c3f200c854ede9196132e517756c5d4421239 Merge: c78ad0f 1e5b21e Author: Alex Goncharov <alex-goncharov(a)comcast.net> Date: Tue Oct 11 21:30:54 2011 -0400 Merge branch 'master' of ssh://common-lisp.net/var/git/projects/cmucl/cmucl commit c78ad0faeb5c8518124d55757c2b868ae8b97dfb Author: Alex Goncharov <alex-goncharov(a)comcast.net> Date: Tue Oct 11 21:30:44 2011 -0400 compiler/main.lisp: Doc strings reformat per the established conventions. Plus one dot added. Minus the new line in ext:file-comment diff --git a/compiler/main.lisp b/compiler/main.lisp index 7bfce70..9a2dd99 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -4,8 +4,7 @@ ;;; This code was written as part of the CMU Common Lisp project at ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; -(ext:file-comment - "$Header: src/compiler/main.lisp $") +(ext:file-comment "$Header: src/compiler/main.lisp $") ;;; ;;; ********************************************************************** ;;; @@ -54,8 +53,8 @@ ;;; Exported: (defvar *byte-compile-top-level* t "Similar to *BYTE-COMPILE-DEFAULT*, but controls the compilation of top-level - forms (evaluated at load-time) when the :BYTE-COMPILE argument is :MAYBE - (the default.) When true, we decide to byte-compile.") + forms (evaluated at load-time) when the :BYTE-COMPILE argument is :MAYBE + (the default.) When true, we decide to byte-compile.") ;;; Exported: (defvar *loop-analyze* nil @@ -139,9 +138,9 @@ (defvar *user-source-info* nil "The user supplied source-info for the current compilation. -This is the :source-info argument to COMPILE-FROM-STREAM and will be -stored in the INFO slot of the DEBUG-SOURCE in code components and -in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") + This is the :source-info argument to COMPILE-FROM-STREAM and will be + stored in the INFO slot of the DEBUG-SOURCE in code components and + in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") ;;; Maybe-Mumble -- Internal ;;; @@ -1801,56 +1800,55 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") ((:xref *record-xref-info*) *record-xref-info*)) "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 - .FASL file. The output file names are defaulted from the first (or only) - input file name. Other options available via keywords: - :Output-File - The name of the fasl to output, NIL for none, T for the default. - :Load - Load the compiled file; T here requires :Output-File to be non-NIL, as well. - The default for :Load is NIL. - :Error-File - The name of the error listing file, NIL for none (the default), T for - .err. - :Trace-File - If specified, internal data structures are dumped to this file. T for - the .trace default. - :Error-Output - If a stream, then error output is sent there as well as to the listing - file. NIL suppresses this additional error output. The default is T, - which means use *ERROR-OUTPUT*. - :Block-Compile {NIL | :SPECIFIED | T} - Determines whether multiple functions are compiled together as a unit, - resolving function references at compile time. NIL means that global - function names are never resolved at compilation time. :SPECIFIED means - that names are resolved at compile-time when convenient (as in a - self-recursive call), but the compiler doesn't combine top-level DEFUNs. - With :SPECIFIED, an explicit START-BLOCK declaration will enable block - compilation. A value of T indicates that all forms in the file(s) should - be compiled as a unit. The default is the value of - EXT:*BLOCK-COMPILE-DEFAULT*, which is initially :SPECIFIED. - :Entry-Points - This specifies a list of function names for functions in the file(s) that - must be given global definitions. This only applies to block - compilation, and is useful mainly when :BLOCK-COMPILE T is specified on a - file that lacks START-BLOCK declarations. If the value is NIL (the - default) then all functions will be globally defined. - :Byte-Compile {T | NIL | :MAYBE} - Determines whether to compile into interpreted byte code instead of - machine instructions. Byte code is several times smaller, but much - slower. If :MAYBE, then only byte-compile when SPEED is 0 and - DEBUG <= 1. The default is the value of EXT:*BYTE-COMPILE-DEFAULT*, - which is initially :MAYBE. - :Xref - If non-NIL, enable recording of cross-reference information. The default - is the value of C:*RECORD-XREF-INFO* - :External-Format - The external format to use when opening the source file - :Decoding-Error - How to handle decoding errors in the external format when reading the - source file. Default (T) is to signal an error. Nil means silently - continue, replacing the invalid sequence with a suitable replacment - character." + 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) + input file name. Other options available via keywords: + :Output-File + The name of the fasl to output, NIL for none, T for the default. + :Load + Load the compiled file; T here requires :Output-File to be non-NIL, as well. + The default for :Load is NIL. + :Error-File + The name of the error listing file, NIL for none (the default), T for .err. + :Trace-File + If specified, internal data structures are dumped to this file. T for + the .trace default. + :Error-Output + If a stream, then error output is sent there as well as to the listing + file. NIL suppresses this additional error output. The default is T, + which means use *ERROR-OUTPUT*. + :Block-Compile {NIL | :SPECIFIED | T} + Determines whether multiple functions are compiled together as a unit, + resolving function references at compile time. NIL means that global + function names are never resolved at compilation time. :SPECIFIED means + that names are resolved at compile-time when convenient (as in a + self-recursive call), but the compiler doesn't combine top-level DEFUNs. + With :SPECIFIED, an explicit START-BLOCK declaration will enable block + compilation. A value of T indicates that all forms in the file(s) should + be compiled as a unit. The default is the value of + EXT:*BLOCK-COMPILE-DEFAULT*, which is initially :SPECIFIED. + :Entry-Points + This specifies a list of function names for functions in the file(s) that + must be given global definitions. This only applies to block + compilation, and is useful mainly when :BLOCK-COMPILE T is specified on a + file that lacks START-BLOCK declarations. If the value is NIL (the + default) then all functions will be globally defined. + :Byte-Compile {T | NIL | :MAYBE} + Determines whether to compile into interpreted byte code instead of + machine instructions. Byte code is several times smaller, but much + slower. If :MAYBE, then only byte-compile when SPEED is 0 and + DEBUG <= 1. The default is the value of EXT:*BYTE-COMPILE-DEFAULT*, + which is initially :MAYBE. + :Xref + If non-NIL, enable recording of cross-reference information. The default + is the value of C:*RECORD-XREF-INFO* + :External-Format + The external format to use when opening the source file. + :Decoding-Error + How to handle decoding errors in the external format when reading the + source file. Default (T) is to signal an error. Nil means silently + continue, replacing the invalid sequence with a suitable replacment + character." (let* ((fasl-file nil) (error-file-stream nil) (output-file-pathname nil) @@ -2129,7 +2127,7 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.") (output-file t output-file-supplied-p) &allow-other-keys) "Return a pathname describing what file COMPILE-FILE would write to given - these arguments." + these arguments." (declare (type (or string pathname stream) input-file) (type (or string pathname stream (member t)) output-file) (values (or null pathname))) ----------------------------------------------------------------------- Summary of changes: compiler/main.lisp | 114 +++++++++++++++++++++++++-------------------------- 1 files changed, 56 insertions(+), 58 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-sync-label-2009-03-16 created. 84111a10beb9aefaf3f1bf4cee45d42d7057615b
by Raymond Toy 11 Oct '11

11 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The tag, unicode-utf16-sync-label-2009-03-16 has been created at 84111a10beb9aefaf3f1bf4cee45d42d7057615b (commit) - Log ----------------------------------------------------------------- commit 84111a10beb9aefaf3f1bf4cee45d42d7057615b Author: rtoy <rtoy> Date: Mon Mar 16 21:10:57 2009 +0000 Sync to CVS HEAD, tag label-2009-03-16. But don't sync Config.FreeBSD_gencgc, Config.x86_freebsd, FreeBSD-os.c, and FreeBSD-os.h. Let Alex sync those later. The result seems to work as expected on Solaris and x86/linux. Darwin (ppc or x86) untested. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-sync-2008-12 created. 5ea897048ca5d1bc7321be6916b11f2e76eb69a8
by Raymond Toy 11 Oct '11

11 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The tag, unicode-utf16-sync-2008-12 has been created at 5ea897048ca5d1bc7321be6916b11f2e76eb69a8 (commit) - Log ----------------------------------------------------------------- commit 5ea897048ca5d1bc7321be6916b11f2e76eb69a8 Author: rtoy <rtoy> Date: Thu Dec 18 21:50:19 2008 +0000 Merge Snapshot 2008-12 to this branch. Some tweaks needed in boot-2008-05-cross-unicode-x86.lisp and the Config files. FreeBSD and Darwin/x86 untested, but Linux and Solaris build ok. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-sync-2008-11 created. 2cad8ceb89e302dc9f3041bd0887378c4cb56e72
by Raymond Toy 11 Oct '11

11 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The tag, unicode-utf16-sync-2008-11 has been created at 2cad8ceb89e302dc9f3041bd0887378c4cb56e72 (commit) - Log ----------------------------------------------------------------- commit 2cad8ceb89e302dc9f3041bd0887378c4cb56e72 Author: rtoy <rtoy> Date: Sat Nov 1 22:40:36 2008 +0000 Sync to snapshot 2008-11. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-sync-2008-09 created. 3327b6aa5a1951e993cc64e8aaa9a688592d3224
by Raymond Toy 11 Oct '11

11 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The tag, unicode-utf16-sync-2008-09 has been created at 3327b6aa5a1951e993cc64e8aaa9a688592d3224 (commit) - Log ----------------------------------------------------------------- commit 3327b6aa5a1951e993cc64e8aaa9a688592d3224 Author: rtoy <rtoy> Date: Wed Sep 3 16:34:32 2008 +0000 Merge from snapshot-2008-09. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-sync-2008-07 created. f78265ea1d4a575baad21b2aa511c1e8dff3b98b
by Raymond Toy 11 Oct '11

11 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The tag, unicode-utf16-sync-2008-07 has been created at f78265ea1d4a575baad21b2aa511c1e8dff3b98b (commit) - Log ----------------------------------------------------------------- commit f78265ea1d4a575baad21b2aa511c1e8dff3b98b Author: rtoy <rtoy> Date: Fri Jun 27 17:24:14 2008 +0000 Merge changes from snapshot-2008-07. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-string-support created. f0a8c5c41f0f4a4644ca78eeec4aaec6ecc79d76
by Raymond Toy 11 Oct '11

11 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The tag, unicode-utf16-string-support has been created at f0a8c5c41f0f4a4644ca78eeec4aaec6ecc79d76 (commit) - Log ----------------------------------------------------------------- commit f0a8c5c41f0f4a4644ca78eeec4aaec6ecc79d76 Author: rtoy <rtoy> Date: Tue May 20 14:33:06 2008 +0000 Add support for dumping 16-bit characters. (Of course we still only have 8 bits for each character.) code/load.lisp: o Read 16 bits from a fasl to create a character. The data is stored little-endian. code/dump.lisp: o Dump a 16-bit character to a fasl in little-endian order. compiler/generic/new-genesis.lisp: o Read 16-bit character in little-endian order. bootfiles/19e/boot-2008-05-cross-unicode-common.lisp: o Update dump-character and fop-short-character with the new definitions from load.lisp and dump.lisp. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-extfmts-sync-2008-12 created. 81fea73c0557be93107348e24900469d996e7f2b
by Raymond Toy 11 Oct '11

11 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The tag, unicode-utf16-extfmts-sync-2008-12 has been created at 81fea73c0557be93107348e24900469d996e7f2b (commit) - Log ----------------------------------------------------------------- commit 81fea73c0557be93107348e24900469d996e7f2b Author: rtoy <rtoy> Date: Fri Dec 19 01:31:34 2008 +0000 Merge changes from utf16 branch to update to snapshot 2008-12. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp tag unicode-utf16-extfmt-2009-03-27 created. 70327f16201de230b91e7964af42bcd48b06ac3d
by Raymond Toy 11 Oct '11

11 Oct '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The tag, unicode-utf16-extfmt-2009-03-27 has been created at 70327f16201de230b91e7964af42bcd48b06ac3d (commit) - Log ----------------------------------------------------------------- commit 70327f16201de230b91e7964af42bcd48b06ac3d Author: rtoy <rtoy> Date: Fri Mar 27 16:24:10 2009 +0000 Merge from unicode-utf16-branch to get equal hash-table fixes so that name-char works again. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0