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

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

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

revision 1.4 by pfdietz, Mon Jul 4 13:16:49 2005 UTC revision 1.5 by pfdietz, Sun Sep 11 19:02:37 2005 UTC
# Line 438  Line 438 
438    
439  (deftest format.d.21  (deftest format.d.21
440    (loop for x in *mini-universe*    (loop for x in *mini-universe*
441          for s1 = (format nil "~@:d" x)          for s1 = (format nil "~A" x)
442          for s2 = (format nil "~A" x)          for s2 = (format nil "~@:d" x)
443          unless (or (integerp x) (string= s1 s2))          for s3 = (format nil "~A" x)
444            unless (or (integerp x) (string= s1 s2) (not (string= s1 s3)))
445          collect (list x s1 s2))          collect (list x s1 s2))
446    nil)    nil)
447    

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

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