Changeset 9862 for trunk/source/lib/compile-ccl.lisp

Timestamp:

Jul 1, 2008, 5:46:17 PM (12 years ago)

Author:

gz

Message:

Add :ansi and :ccl args to test-ccl, to allow separate control over whether or not to run the ansi and the ccl parts of the test suite. Also, don't suppress compiler warnings during do-tests

File:

• trunk/source/lib/compile-ccl.lisp (modified) (2 diffs)

trunk/source/lib/compile-ccl.lisp

@@ -600 +600 @@
          (cwd ,wd)))))
 
-(defun ensure-tests-loaded (&key force update)
+(defun ensure-tests-loaded (&key force update ansi ccl)
   (unless (and (find-package "REGRESSION-TEST") (not force))
     (if (probe-file "ccl:tests;ansi-tests;")
@@ -645 +645 @@
       (let ((redef-var (find-symbol "*WARN-IF-REDEFINE-TEST*" :REGRESSION-TEST)))
         (progv (list redef-var) (list (if force nil (symbol-value redef-var)))
-          (load "ccl:tests;ansi-tests;gclload2.lsp")
+          (when ansi
+            (load "ccl:tests;ansi-tests;gclload2.lsp"))
           ;; And our own tests
-          (load "ccl:tests;ansi-tests;ccl.lsp"))))))
-
-(defun test-ccl (&key force (update t) verbose (catch-errors t))
+          (when ccl
+            (load "ccl:tests;ansi-tests;ccl.lsp")))))))
+
+(defun test-ccl (&key force (update t) verbose (catch-errors t) (ansi t) (ccl t))
   (with-preserved-working-directory ()
     (let* ((*package* (find-package "CL-USER")))
-      (ensure-tests-loaded :force force :update update)
+      (ensure-tests-loaded :force force :update update :ansi ansi :ccl ccl)
       (cwd "ccl:tests;ansi-tests;")
       (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
-            (*suppress-compiler-warnings* t)
             (*print-catch-errors* nil))
         (time (funcall do-tests :verbose verbose :compile t :catch-errors catch-errors)))