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

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

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

revision 1.9 by pfdietz, Sat Nov 27 19:36:18 2004 UTC revision 1.10 by pfdietz, Sat Nov 27 21:55:26 2004 UTC
# Line 43  Line 43 
43    nil)    nil)
44    
45  (def-format-test format.{.9  (def-format-test format.{.9
46    "~#{~A~}" ('(1 2 3 4 5 6 7) nil nil nil) "1234")    "~#{~A~}" ('(1 2 3 4 5 6 7) nil nil nil) "1234" 3)
47    
48  ;;; (missing tests involved ~^ and have been moved to format-circumflex.lsp  ;;; (missing tests involved ~^ and have been moved to format-circumflex.lsp
49  ;;;  and renamed.)  ;;;  and renamed.)
# Line 154  Line 154 
154    "~V:{X~}" (nil '((1) (2) (3) nil (5))) "XXXXX")    "~V:{X~}" (nil '((1) (2) (3) nil (5))) "XXXXX")
155    
156  (def-format-test format.\:{.13  (def-format-test format.\:{.13
157    "~#:{~A~}" ('((1) (2) (3) (4) (5)) 'foo 'bar) "123")    "~#:{~A~}" ('((1) (2) (3) (4) (5)) 'foo 'bar) "123" 2)
158    
159  (def-format-test format.\:{.14  (def-format-test format.\:{.14
160    "~:{~A~:}" ('((1 X) (2 Y) (3) (4 A B))) "1234")    "~:{~A~:}" ('((1 X) (2 Y) (3) (4 A B))) "1234")
# Line 243  Line 243 
243    "~:@{~A~:}" ('(1 A) '(2 B) '(3) '(4 C D)) "1234")    "~:@{~A~:}" ('(1 A) '(2 B) '(3) '(4 C D)) "1234")
244    
245  (def-format-test format.\:@.7  (def-format-test format.\:@.7
246    "~0:@{~A~:}" ('(1 A) '(2 B) '(3) '(4 C D)) "")    "~0:@{~A~:}" ('(1 A) '(2 B) '(3) '(4 C D)) "" 4)
247    
248  (def-format-test format.\:@.8  (def-format-test format.\:@.8
249    "~#:@{A~:}" (nil nil nil) "AAA")    "~#:@{A~:}" (nil nil nil) "AAA")

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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