From 2cd2370cb7d3a7b36db1f505a511f7fd3a30e790 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 4 Aug 1993 10:54:53 +0000 Subject: [PATCH] Deleted vestigial documentation in rename-file about files that are open but don't exist yet. --- code/filesys.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/code/filesys.lisp b/code/filesys.lisp index 2b53ddcca..f42fb0e72 100644 --- a/code/filesys.lisp +++ b/code/filesys.lisp @@ -6,7 +6,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.34 1993/08/04 09:37:47 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.35 1993/08/04 10:54:53 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -677,14 +677,11 @@ ;;; (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. If the file does not yet exist - then the file is created with the New-Name when the stream is closed." + file, then the associated file is renamed." (let* ((original (truename file)) (original-namestring (unix-namestring original t)) (new-name (merge-pathnames new-name original)) (new-namestring (unix-namestring new-name nil))) - (unless original-namestring - (error "~S doesn't exist." file)) (unless new-namestring (error "~S can't be created." new-name)) (multiple-value-bind (res error) -- GitLab