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