Changeset 12353


Ignore:
Timestamp:
Jul 2, 2009, 7:27:24 AM (10 years ago)
Author:
gb
Message:

TEST-CCL: return (hopefully null) list of failed test names.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r12300 r12353  
    778778      (cwd "ccl:tests;ansi-tests;")
    779779      (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
     780            (failed (find-symbol "*FAILED-TESTS*" "REGRESSION-TEST"))
    780781            (*print-catch-errors* nil))
    781782        (prog1
     
    785786          ;; Clean up a little
    786787          (map nil #'delete-file
    787                (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ansi-tests;temp*"))))))))
     788               (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ansi-tests;temp*"))))
     789        (symbol-value failed)))))
Note: See TracChangeset for help on using the changeset viewer.