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