29 |
|
|
30 |
(deftest delete-file.3 |
(deftest delete-file.3 |
31 |
(let ((pn "CLTEST:scratchfile.txt")) |
(let ((pn "CLTEST:scratchfile.txt")) |
32 |
|
(assert (typep (pathname pn) 'logical-pathname)) |
33 |
(unless (probe-file pn) |
(unless (probe-file pn) |
34 |
(with-open-file (s pn :direction :output) |
(with-open-file (s pn :direction :output) |
35 |
(format s "Contents~%"))) |
(format s "Contents~%"))) |
41 |
|
|
42 |
(deftest delete-file.4 |
(deftest delete-file.4 |
43 |
(let ((pn "CLTEST:scratchfile.txt")) |
(let ((pn "CLTEST:scratchfile.txt")) |
44 |
|
(assert (typep (pathname pn) 'logical-pathname)) |
45 |
(unless (probe-file pn) |
(unless (probe-file pn) |
46 |
(with-open-file (s pn :direction :output) |
(with-open-file (s pn :direction :output) |
47 |
(format s "Contents~%"))) |
(format s "Contents~%"))) |