X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=02958ffb6f722859b8115146a9c0a1e08a18cb54;hb=bed279acc9bd04eb1bbf56acb0dcaa3b1acf04f0;hp=993540230a96f3cc33dac31297b8042f2d81c9e2;hpb=e37366e7bb72bc80c6c9908efe09f94ce26add16;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 9935402..02958ff 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -32,5 +32,12 @@
 ;;; an error) and provided a fix which was ported to sbcl-0.6.12.35.
 (assert (null (format t "~F" "foo")))
 
+;;; This was a bug in SBCL until 0.6.12.40 (originally reported as a
+;;; CMU CL bug by Erik Naggum on comp.lang.lisp).
+(loop for *print-base* from 2 to 36
+      with *print-radix* = t
+      do
+      (assert (string= "#*101" (format nil "~S" #*101))))
+
 ;;; success
 (quit :unix-status 104)