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

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

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

revision 1.8 by pfdietz, Mon Nov 15 12:11:58 2004 UTC revision 1.9 by pfdietz, Tue Nov 16 01:17:40 2004 UTC
# Line 266  Line 266 
266    
267  (deftest format.^.\:{.30  (deftest format.^.\:{.30
268    (format nil "~:{~1,2,v^~A~}" '((nil 0)))    (format nil "~:{~1,2,v^~A~}" '((nil 0)))
269    "")    "0")
270    
271  (deftest format.^.\:{.31  (deftest format.^.\:{.31
272    (format nil "~:{~#,3,3^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    (format nil "~:{~#,3,3^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
# Line 567  Line 567 
567    
568  (deftest format.^.\:@{.30  (deftest format.^.\:@{.30
569    (format nil "~:@{~1,2,v^~A~}" '(nil 0))    (format nil "~:@{~1,2,v^~A~}" '(nil 0))
570    "")    "0")
571    
572  (deftest format.^.\:@{.31  (deftest format.^.\:@{.31
573    (format nil "~:@{~#,3,3^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))    (format nil "~:@{~#,3,3^~A~}" '(1) '(2 1) '(3 2 1) '(4 3 2 1) '(5 4 3 2 1))

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

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