Changeset 11637


Ignore:
Timestamp:
Jan 21, 2009, 1:05:06 PM (11 years ago)
Author:
gz
Message:

Clean up a little after running test suite

File:
1 edited

Legend:

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

    r11369 r11637  
    753753      (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
    754754            (*print-catch-errors* nil))
    755         (time (funcall do-tests :verbose verbose :compile t
    756                        :catch-errors catch-errors
    757                        :optimization-settings (or optimization-settings '((safety 2))))))
    758       ;; Ok, here we would run any of our own tests.
    759       )))
     755        (prog1
     756            (time (funcall do-tests :verbose verbose :compile t
     757                           :catch-errors catch-errors
     758                           :optimization-settings (or optimization-settings '((safety 2)))))
     759          ;; Clean up a little
     760          (map nil #'delete-file
     761               (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ansi-tests;temp*"))))))))
Note: See TracChangeset for help on using the changeset viewer.