Changeset 12816


Ignore:
Timestamp:
07/21/10 07:39:38 (12 years ago)
Author:
Mark Evenson
Message:

Upgrade finding test results database for ASDF2.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp

    r12509 r12816  
    7575
    7676(defvar *default-database-file*
    77   (merge-pathnames "ansi-test-failures" (directory-namestring *load-truename*)))
     77  (if (find :asdf2 *features*)
     78      (asdf:system-relative-pathname :ansi-compiled "test/lisp/ansi/ansi-test-failures")
     79      (merge-pathnames "ansi-test-failures" (directory-namestring *load-truename*)))
    7880
    7981(defun parse (&optional (file *default-database-file*))
Note: See TracChangeset for help on using the changeset viewer.