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

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

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

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

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