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