[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2011-10-20-ga34b7f0

[Raymond Toy]

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 at 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 at 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
-- 
CMU Common Lisp