From 8160ffd4c2793e87eb6ec4b80c27182d35004e7c Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 18 Sep 2005 00:04:09 +0000
Subject: [PATCH] Disable directory-namestring.3 for lispworks

---
 ansi-tests/directory-namestring.lsp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ansi-tests/directory-namestring.lsp b/ansi-tests/directory-namestring.lsp
index 1ea12790..a330001e 100644
--- a/ansi-tests/directory-namestring.lsp
+++ b/ansi-tests/directory-namestring.lsp
@@ -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)))
-- 
GitLab