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@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