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
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -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