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