Changeset 9923


Ignore:
Timestamp:
Jul 7, 2008, 8:17:16 PM (11 years ago)
Author:
gz
Message:

merge r9842 from trunk

File:
1 edited

Legend:

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

    r9909 r9923  
    647647                 (function-definition-type)))
    648648      ;; This loads the actual tests
    649       (when ansi
    650         (load "ccl:tests;ansi-tests;gclload2.lsp"))
    651       ;; And our own tests
    652       (when ccl
    653         (load "ccl:tests;ansi-tests;ccl.lsp")))))
     649      (let ((redef-var (find-symbol "*WARN-IF-REDEFINE-TEST*" :REGRESSION-TEST)))
     650        (progv (list redef-var) (list (if force nil (symbol-value redef-var)))
     651          (when ansi
     652            (load "ccl:tests;ansi-tests;gclload2.lsp"))
     653          ;; And our own tests
     654          (when ccl
     655            (load "ccl:tests;ansi-tests;ccl.lsp")))))))
    654656
    655657(defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t)
Note: See TracChangeset for help on using the changeset viewer.