Changeset 14246


Ignore:
Timestamp:
11/15/12 12:33:01 (8 years ago)
Author:
Mark Evenson
Message:

abcl-test: Fix DIRECTORY.4.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/file-system-tests.lisp

    r14244 r14246  
    342342            (and (listp directory)
    343343                 (= (length directory) 1)
    344                  (pathnames-equal-p (car directory) file-pathname))))
     344                 (pathnames-equal-p (truename (car directory))
     345                                    (truename file-pathname)))))
    345346      (delete-directory-and-files directory-pathname)))
    346347  t)
Note: See TracChangeset for help on using the changeset viewer.