Changeset 9842


Ignore:
Timestamp:
Jun 27, 2008, 5:06:10 PM (11 years ago)
Author:
gz
Message:

(in test-ccl) turn off test redefinition warnings if :force t

File:
1 edited

Legend:

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

    r9332 r9842  
    643643      (load "ccl:tests;ansi-tests;gclload1.lsp")
    644644      ;; This loads the actual tests
    645       (load "ccl:tests;ansi-tests;gclload2.lsp")
    646       ;; And our own tests
    647       (load "ccl:tests;ansi-tests;ccl.lsp"))))
     645      (let ((redef-var (find-symbol "*WARN-IF-REDEFINE-TEST*" :REGRESSION-TEST)))
     646        (progv (list redef-var) (list (if force nil (symbol-value redef-var)))
     647          (load "ccl:tests;ansi-tests;gclload2.lsp")
     648          ;; And our own tests
     649          (load "ccl:tests;ansi-tests;ccl.lsp"))))))
    648650
    649651(defun test-ccl (&key force (update t) verbose (catch-errors t))
Note: See TracChangeset for help on using the changeset viewer.