/[gcl]/gcl/ansi-tests/format-b.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-b.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Mon Dec 6 14:04:21 2004 UTC revision 1.4 by pfdietz, Sun Sep 11 19:02:37 2005 UTC
# Line 401  Line 401 
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    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26