Changeset 9332


Ignore:
Timestamp:
Apr 29, 2008, 5:37:22 PM (11 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:
1 edited

Legend:

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

    r9164 r9332  
    649649(defun test-ccl (&key force (update t) verbose (catch-errors t))
    650650  (with-preserved-working-directory ()
    651     (ensure-tests-loaded :force force :update update)
    652     (cwd "ccl:tests;ansi-tests;")
    653     (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
    654           (*suppress-compiler-warnings* t)
    655           (*print-catch-errors* nil))
    656       (time (funcall do-tests :verbose verbose :compile t :catch-errors catch-errors)))
    657     ;; Ok, here we would run any of our own tests.
    658     ))
     651    (let* ((*package* (find-package "CL-USER")))
     652      (ensure-tests-loaded :force force :update update)
     653      (cwd "ccl:tests;ansi-tests;")
     654      (let ((do-tests (find-symbol "DO-TESTS" "REGRESSION-TEST"))
     655            (*suppress-compiler-warnings* t)
     656            (*print-catch-errors* nil))
     657        (time (funcall do-tests :verbose verbose :compile t :catch-errors catch-errors)))
     658      ;; Ok, here we would run any of our own tests.
     659      )))
Note: See TracChangeset for help on using the changeset viewer.