/[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.1 by pfdietz, Fri Nov 12 12:59:47 2004 UTC revision 1.2 by pfdietz, Fri Nov 12 13:56:35 2004 UTC
# Line 76  Line 76 
76    (format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10 11 12 13 14))    (format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10 11 12 13 14))
77    "2468")    "2468")
78    
79    (deftest format.^.{.18
80      (format nil "~{~v,v^~A~}" (list (1+ most-positive-fixnum)
81                                      (1+ most-positive-fixnum)
82                                      1))
83      "")
84    
85    (deftest format.^.{.19
86      (format nil "~{~0,v,v^~A~}" (list (1+ most-positive-fixnum)
87                                      (1+ most-positive-fixnum)
88                                      1))
89      "")
90    
91    (deftest format.^.{.20
92      (format nil "~{~0,v,v^~A~}" (list (1+ most-positive-fixnum)
93                                        most-positive-fixnum
94                                        1))
95      "1")
96    
97    (deftest format.^.{.21
98      (format nil "~{~1,v^~A~}" '(nil 8 nil 7 0 6 1 5))
99      "876")
100    
101    (deftest format.^.{.22
102      (format nil "~{~0,v^~A~}" '(3 8 1 7 3 6 nil 5))
103      "876")
104    
105    (deftest format.^.{.23
106      (format nil "~{~1,2,v^~A~}" '(0 1 0 2 0 3 3 4))
107      "123")
108    
109    (deftest format.^.{.24
110      (format nil "~{~1,2,v^~A~}" '(0 1 0 2 0 3 nil 4))
111      "1234")
112    
113    (deftest format.^.{.25
114      (format nil "~{~1,1,v^~A~}" '(0 1 0 2 0 3 nil 4))
115      "123")
116    
117    (deftest format.^.{.26
118      (format nil "~{~'XA~}" '(1 2 3))
119      "123")
120    
121    (deftest format.^.{.27
122      (format nil "~{~v,'XA~}" '(0 1 #\x 2 nil 3 #\X 4 0 5))
123      "123")

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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