From 75eab15d06265e24c8eb745a6d1745c108e774fc Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@gmail.com> Date: Wed, 18 Sep 2013 14:45:58 -0500 Subject: [PATCH] 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. --- test/test-around-compile.script | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/test-around-compile.script b/test/test-around-compile.script index 33e8fcac..0aa7bf31 100644 --- a/test/test-around-compile.script +++ b/test/test-around-compile.script @@ -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 -- GitLab