401 |
(deftest format.b.21 |
(deftest format.b.21 |
402 |
(let ((fn (formatter "~:@b"))) |
(let ((fn (formatter "~:@b"))) |
403 |
(loop for x in *mini-universe* |
(loop for x in *mini-universe* |
404 |
for s1 = (format nil "~@:B" x) |
for s1 = (let ((*print-base* 2)) (format nil "~A" x)) |
405 |
for s2 = (let ((*print-base* 2)) (format nil "~A" x)) |
for s2 = (format nil "~@:B" x) |
406 |
for s3 = (formatter-call-to-string fn x) |
for s3 = (formatter-call-to-string fn x) |
407 |
unless (or (integerp x) (and (string= s1 s2) (string= s1 s3))) |
for s4 = (let ((*print-base* 2)) (format nil "~A" x)) |
408 |
|
unless (or (integerp x) (and (string= s1 s2) (string= s1 s3)) |
409 |
|
(string/= s1 s4)) |
410 |
collect (list x s1 s2 s3))) |
collect (list x s1 s2 s3))) |
411 |
nil) |
nil) |
412 |
|
|