Changeset 9909


Ignore:
Timestamp:
Jul 7, 2008, 2:57:21 PM (11 years ago)
Author:
gz
Message:

add optimization-settings keyword to test-ccl and pass it on to do-tests, defaulting to (safety 2)

File:
1 edited

Legend:

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

    r9861 r9909  
    653653        (load "ccl:tests;ansi-tests;ccl.lsp")))))
    654654
    655 (defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t))
     655(defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t)
     656                      optimization-settings)
    656657  (with-preserved-working-directory ()
    657658    (let* ((*package* (find-package "CL-USER")))
     
    660661      (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
    661662            (*print-catch-errors* nil))
    662         (time (funcall do-tests :verbose verbose :compile t :catch-errors catch-errors)))
     663        (time (funcall do-tests :verbose verbose :compile t
     664                       :catch-errors catch-errors
     665                       :optimization-settings (or optimization-settings '((safety 2))))))
    663666      ;; Ok, here we would run any of our own tests.
    664667      )))
Note: See TracChangeset for help on using the changeset viewer.