Changeset 9910


Ignore:
Timestamp:
Jul 7, 2008, 2:59:09 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
  • trunk/source/lib/compile-ccl.lisp

    r9862 r9910  
    651651            (load "ccl:tests;ansi-tests;ccl.lsp")))))))
    652652
    653 (defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t))
     653(defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t)
     654                      optimization-settings)
    654655  (with-preserved-working-directory ()
    655656    (let* ((*package* (find-package "CL-USER")))
     
    658659      (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
    659660            (*print-catch-errors* nil))
    660         (time (funcall do-tests :verbose verbose :compile t :catch-errors catch-errors)))
     661        (time (funcall do-tests :verbose verbose :compile t
     662                       :catch-errors catch-errors
     663                       :optimization-settings (or optimization-settings '((safety 2))))))
    661664      ;; Ok, here we would run any of our own tests.
    662665      )))
Note: See TracChangeset for help on using the changeset viewer.