Commit 75eab15d authored by Robert P. Goldman's avatar Robert P. Goldman

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
......@@ -17,8 +17,8 @@
(DBG "Testing around-compile with a lambda")
(def-test-system test-around-compile-lambda
:around-compile (lambda (thunk)
(let ((*read-base* 2))
(let ((*read-base* 9))
(funcall thunk)))
:components ((:file "test")))
(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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment