Changeset 12816

Timestamp:

07/21/10 07:39:38 (13 years ago)

Author:

Mark Evenson

Message:

Upgrade finding test results database for ASDF2.

File:

• trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp (modified) (1 diff)

trunk/abcl/test/lisp/ansi/parse-ansi-errors.lisp

@@ -75 +75 @@
 
 (defvar *default-database-file* 
-  (merge-pathnames "ansi-test-failures" (directory-namestring *load-truename*)))
+  (if (find :asdf2 *features*)
+      (asdf:system-relative-pathname :ansi-compiled "test/lisp/ansi/ansi-test-failures")
+      (merge-pathnames "ansi-test-failures" (directory-namestring *load-truename*)))
 
 (defun parse (&optional (file *default-database-file*))