[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-01-11-g83bab7f

[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  83bab7fa23d38db6886680a7f19dc19a688514b2 (commit)
      from  180783f6ab79beca64ea3ae11a946f9dabf3c141 (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 83bab7fa23d38db6886680a7f19dc19a688514b2
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Jan 17 20:02:24 2013 -0800

    Document the return values for RENAME-FILE.

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 308b8b5..9d224df 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -938,8 +938,13 @@
 ;;; Rename-File  --  Public
 ;;;
 (defun rename-file (file new-name)
-  "Rename File to have the specified New-Name.  If file is a stream open to a
-  file, then the associated file is renamed."
+  "Rename File to have the specified New-Name.  If file is a stream
+  open to a file, then the associated file is renamed.
+
+  Three values are returned if successful: the defaulted new name
+  composed of New-Name with missing components filled in from File;
+  the truename of File before it was renamed; the new truename of the
+  File after it was renamed."
   (let* ((original (truename file))
 	 (original-namestring (unix-namestring original t))
 	 (new-name (merge-pathnames new-name file))

-----------------------------------------------------------------------

Summary of changes:
 src/code/filesys.lisp |    9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp