Changeset 12360


Ignore:
Timestamp:
Jul 3, 2009, 2:34:48 AM (10 years ago)
Author:
gz
Message:

r12353 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/compile-ccl.lisp

    r12346 r12360  
    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.