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 a34b7f0e2796651ac002cefd0811767091a3731a (commit) via ae88f40f3125a4cc7729ccb81ebadd33e05889c7 (commit) from e9c497d7156a43a4acb77c26e392fb47f9c47552 (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 a34b7f0e2796651ac002cefd0811767091a3731a Author: Raymond Toy toy.raymond@gmail.com Date: Wed Oct 12 22:15:46 2011 -0700

Clean up implementation of PROCESS-FILE-COMMENT slightly.

diff --git a/compiler/main.lisp b/compiler/main.lisp index eac347d..544ccb0 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1127,9 +1127,9 @@ (generate-comment (file-info) (let* ((name (pathname (source-info-stream file-info))) (proc (run-git name)) - comment) - (if (and proc (zerop (process-exit-code proc)) - (setf comment (read-line (process-output proc) nil nil))) + (comment (and proc (zerop (process-exit-code proc)) + (read-line (process-output proc) nil nil)))) + (if comment (format nil "$Header: ~A ~A $" (enough-namestring name) comment)

commit ae88f40f3125a4cc7729ccb81ebadd33e05889c7 Author: Raymond Toy toy.raymond@gmail.com Date: Wed Oct 12 22:06:43 2011 -0700

Format docstrings for COMPILE-FILE and COMPILE-FILE-PATHNAME so DESCRIBE prints them neatly.

diff --git a/compiler/main.lisp b/compiler/main.lisp index 9e16830..eac347d 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -1810,13 +1810,14 @@ These keywords are supported:

:Output-File - 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. + 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. + 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 @@ -2135,10 +2136,12 @@ (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. - 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." + "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 | 29 ++++++++++++++++------------- 1 files changed, 16 insertions(+), 13 deletions(-)

hooks/post-receive