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

Timestamp:

Apr 29, 2008, 5:37:22 PM (13 years ago)

Author:

gb

Message:

Bind *PACKAGE* to CL-USER package in TEST-CCL. (Some of us live in the
CCL package, and the test suite assumes that CL-USER is current. That's
kind of the first test ...)

File:

• trunk/source/lib/compile-ccl.lisp (modified) (1 diff)

trunk/source/lib/compile-ccl.lisp

@@ -649 +649 @@
 (defun test-ccl (&key force (update t) verbose (catch-errors t))
   (with-preserved-working-directory ()
-    (ensure-tests-loaded :force force :update update)
-    (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)))
-    ;; Ok, here we would run any of our own tests.
-    ))
+    (let* ((*package* (find-package "CL-USER")))
+      (ensure-tests-loaded :force force :update update)
+      (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)))
+      ;; Ok, here we would run any of our own tests.
+      )))