Ignore:
Timestamp:
May 16, 2008, 3:13:06 AM (12 years ago)
Author:
gb
Message:

Make TEST-CCL bind *PACKAGE* to the cl-user package.

File:
1 edited

Legend:

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

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