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