[armedbear-cvs] r14246 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Nov 15 04:33:01 2012
New Revision: 14246

Log:
abcl-test:  Fix DIRECTORY.4.

Modified:
   trunk/abcl/test/lisp/abcl/file-system-tests.lisp

Modified: trunk/abcl/test/lisp/abcl/file-system-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/file-system-tests.lisp	Thu Nov 15 04:33:00 2012	(r14245)
+++ trunk/abcl/test/lisp/abcl/file-system-tests.lisp	Thu Nov 15 04:33:01 2012	(r14246)
@@ -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