Changeset 11638


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

r11637 from trunk

File:
1 edited

Legend:

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

    r11412 r11638  
    765765      (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
    766766            (*print-catch-errors* nil))
    767         (time (funcall do-tests :verbose verbose :compile t
    768                        :catch-errors catch-errors
    769                        :optimization-settings (or optimization-settings '((safety 2))))))
    770       ;; Ok, here we would run any of our own tests.
    771       )))
     767        (prog1
     768            (time (funcall do-tests :verbose verbose :compile t
     769                           :catch-errors catch-errors
     770                           :optimization-settings (or optimization-settings '((safety 2)))))
     771          ;; Clean up a little
     772          (map nil #'delete-file
     773               (directory (merge-pathnames *.fasl-pathname* "ccl:tests;ansi-tests;temp*"))))))))
Note: See TracChangeset for help on using the changeset viewer.