Commit ad00eb92 authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

Correct ENSURE-DIRECTORIES-EXIST.1 test logic.


ABCL fills in DEVICE as :UNSPECIFIC when resolving filesystem paths on
non-M$DOG meaning that an unresolved pathname is not always equivalent
to its resolved version.
parent e1024c4e
......@@ -459,7 +459,11 @@
#+clisp
;; CLISP's PROBE-DIRECTORY just returns T.
(ext:probe-directory directory-namestring)
#-clisp
;; ABCL fills in DEVICE as :UNSPECIFIC when resolving
;; filesystem paths on non-M$DOG
#+abcl
(not (null (truename directory-namestring)))
#-(or clisp abcl)
(pathnames-equal-p (probe-file directory-namestring)
(pathname directory-namestring))
;; 4. Delete the directory.
......
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