Skip to content
Snippets Groups Projects
Commit 75eab15d authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Tweak test-around-compile.

Be more careful to check that the test system is loaded in *both* of the
sub-tests.  Thanks to Fare for getting me through bewilderment with
a *READ-BASE* of > 10.
parent 6ff0c4b5
Branches 20f-branch
Tags 20f
No related merge requests found
...@@ -17,8 +17,8 @@ ...@@ -17,8 +17,8 @@
(DBG "Testing around-compile with a lambda") (DBG "Testing around-compile with a lambda")
(def-test-system test-around-compile-lambda (def-test-system test-around-compile-lambda
:around-compile (lambda (thunk) :around-compile (lambda (thunk)
(let ((*read-base* 2)) (let ((*read-base* 9))
(funcall thunk))) (funcall thunk)))
:components ((:file "test"))) :components ((:file "test")))
(load-system 'test-around-compile-lambda :force t) (load-system 'test-around-compile-lambda :force t)
(assert (= 3 (funcall 'add10 1))) ;; add10 must have been compiled in base 2 (assert (= 10 (funcall 'add10 1))) ;; add10 must have been compiled in base 16
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment