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

abcl-test: Fix DIRECTORY.4.

parent 279ebb9c
......@@ -341,7 +341,8 @@
:defaults directory-pathname))))
(and (listp directory)
(= (length directory) 1)
(pathnames-equal-p (car directory) file-pathname))))
(pathnames-equal-p (truename (car directory))
(truename file-pathname)))))
(delete-directory-and-files directory-pathname)))
t)
#+clisp
......
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