projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.0.54:
[sbcl.git]
/
tests
/
print.impure.lisp
diff --git
a/tests/print.impure.lisp
b/tests/print.impure.lisp
index
68420b1
..
f7f3d14
100644
(file)
--- a/
tests/print.impure.lisp
+++ b/
tests/print.impure.lisp
@@
-48,10
+48,10
@@
;;; 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).
;;; 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
+(loop for base from 2 to 36
with *print-radix* = t
with *print-radix* = t
- do
- (assert (string= "#*101" (format nil "~S" #*101))))
+ do (let ((*print-base* base))
+ (assert (string= "#*101" (format nil "~S" #*101)))))
;;; bug in sbcl-0.7.1.25, reported by DB sbcl-devel 2002-02-25
(assert (string= "0.5" (format nil "~2D" 0.5)))
;;; bug in sbcl-0.7.1.25, reported by DB sbcl-devel 2002-02-25
(assert (string= "0.5" (format nil "~2D" 0.5)))