diff --git a/test/test-around-compile.script b/test/test-around-compile.script index 33e8fcac76b5fc4eba4ed2d3e15345ef670261e0..0aa7bf31130612aa302dc41d3e6f1b6304d6b4ca 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