/[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.5 by pfdietz, Sun Nov 14 15:16:02 2004 UTC revision 1.6 by pfdietz, Sun Nov 14 15:20:35 2004 UTC
# Line 256  Line 256 
256    (format nil "~:{~1,2,v^~A~}" '((nil 0)))    (format nil "~:{~1,2,v^~A~}" '((nil 0)))
257    "")    "")
258    
259    (deftest format.^.\:{.31
260      (format nil "~:{~#,3,3^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
261      "45")
262    
263    (deftest format.^.\:{.32
264      (format nil "~:{~2,#,3^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
265      "145")
266    
267    (deftest format.^.\:{.33
268      (format nil "~:{~0,3,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
269      "12")
270    
271    (deftest format.^.\:{.34
272      (format nil "~:{~#,#,3^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
273      "45")
274    
275    (deftest format.^.\:{.35
276      (format nil "~:{~3,#,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
277      "12")
278    
279    (deftest format.^.\:{.36
280      (format nil "~:{~#,3,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
281      "1245")
282    
283    (deftest format.^.\:{.37
284      (format nil "~:{~#,#,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
285      "")
   
   
   
   

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

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