/[gcl]/gcl/ansi-tests/directory-namestring.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/directory-namestring.lsp

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

revision 1.1 by pfdietz, Sun Sep 12 12:08:49 2004 UTC revision 1.2 by pfdietz, Sun Sep 18 00:04:09 2005 UTC
# Line 24  Line 24 
24       (assert (string= (directory-namestring ns) ns))))       (assert (string= (directory-namestring ns) ns))))
25    nil)    nil)
26    
27    ;;; Lispworks makes another assumption about filename normalization
28    ;;; when using file streams as pathname designators, so this test
29    ;;; doesn't work there.
30    ;;; (This is another example of the difficulty of testing a feature
31    ;;;  in which so much is left up to the implementation.)
32    #-lispworks
33  (deftest directory-namestring.3  (deftest directory-namestring.3
34    (let* ((name "directory-namestring.lsp")    (let* ((name "directory-namestring.lsp")
35           (pn (merge-pathnames (pathname name)))           (pn (merge-pathnames (pathname name)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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