/[gcl]/gcl/ansi-tests/rename-file.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/rename-file.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pfdietz, Sun Sep 19 20:56:33 2004 UTC revision 1.7 by pfdietz, Thu Oct 7 01:14:06 2004 UTC
# Line 111  Line 111 
111          (pn2 "CLTEST:file-that-was-renamed.txt"))          (pn2 "CLTEST:file-that-was-renamed.txt"))
112      (delete-all-versions pn1)      (delete-all-versions pn1)
113      (delete-all-versions pn2)      (delete-all-versions pn2)
114        (assert (typep (pathname pn1) 'logical-pathname))
115        (assert (typep (pathname pn2) 'logical-pathname))
116      (with-open-file (s pn1 :direction :output) (format s "Whatever~%"))      (with-open-file (s pn1 :direction :output) (format s "Whatever~%"))
117      (let ((results (multiple-value-list (rename-file pn1 pn2))))      (let ((results (multiple-value-list (rename-file pn1 pn2))))
118        (destructuring-bind (defaulted-new-name old-truename new-truename)        (destructuring-bind (defaulted-new-name old-truename new-truename)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26