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

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

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

revision 1.4 by pfdietz, Sun Sep 19 20:56:33 2004 UTC revision 1.5 by pfdietz, Thu Oct 7 01:14:06 2004 UTC
# Line 29  Line 29 
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~%")))
# Line 40  Line 41 
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~%")))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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