/[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.4 by pfdietz, Sun Nov 14 13:34:02 2004 UTC revision 1.5 by pfdietz, Sun Nov 14 15:16:02 2004 UTC
# Line 208  Line 208 
208    (format nil "~:{~1,#^~A~}" '((1)(2 10)(3 a b)(4)(5 x)(6)(7 8)))    (format nil "~:{~1,#^~A~}" '((1)(2 10)(3 a b)(4)(5 x)(6)(7 8)))
209    "2357")    "2357")
210    
211    (deftest format.^.\:{.19
212      (format nil "~:{~#,#^~A~}" '((1)()(2 10)(3 a b)(4)(5 x)(6)(7 8)))
213      "")
214    
215    (deftest format.^.\:{.20
216      (format nil "~:{~0,v^~A~}" '((0 1)(1 2)(nil 3)(2 4)))
217      "24")
218    
219    (deftest format.^.\:{.21
220      (format nil "~:{~1,v^~A~}" '((0 1)(1 2)(nil 3)(2 4)))
221      "134")
222    
223    (deftest format.^.\:{.22
224      (format nil "~:{~1,1,1^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))
225      "")
226    
227    (deftest format.^.\:{.23
228      (format nil "~:{~1,2,3^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))
229      "")
230    
231    (deftest format.^.\:{.24
232      (format nil "~:{~1,2,1^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))
233      "1247")
234    
235    (deftest format.^.\:{.25
236      (format nil "~:{~1,0,1^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))
237      "1247")
238    
239    (deftest format.^.\:{.26
240      (format nil "~:{~3,2,1^~A~}" '((1)(2 3)(4 5 6)(7 8 9 0)))
241      "1247")
242    
243    (deftest format.^.\:{.27
244      (format nil "~:{~v,2,3^~A~}" '((1 10)(2 20)(3 30)(4 40)))
245      "3040")
246    
247    (deftest format.^.\:{.28
248      (format nil "~:{~1,v,3^~A~}" '((0 7)(1 10)(2 20)(3 30)(4 40)))
249      "740")
250    
251    (deftest format.^.\:{.29
252      (format nil "~:{~1,2,v^~A~}" '((0 0)(1 10)(2 20)(3 30)(4 40)(0 50)))
253      "01050")
254    
255    (deftest format.^.\:{.30
256      (format nil "~:{~1,2,v^~A~}" '((nil 0)))
257      "")
258    
259    
260    
261    
262    
263    
264    

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