Commit 8160ffd4 authored by pfdietz's avatar pfdietz
Browse files

Disable directory-namestring.3 for lispworks

parent 1ff2993d
......@@ -24,6 +24,12 @@
(assert (string= (directory-namestring ns) ns))))
nil)
;;; Lispworks makes another assumption about filename normalization
;;; when using file streams as pathname designators, so this test
;;; doesn't work there.
;;; (This is another example of the difficulty of testing a feature
;;; in which so much is left up to the implementation.)
#-lispworks
(deftest directory-namestring.3
(let* ((name "directory-namestring.lsp")
(pn (merge-pathnames (pathname name)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment