/[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.6 by pfdietz, Sun Nov 14 15:20:35 2004 UTC revision 1.7 by pfdietz, Sun Nov 14 15:26:17 2004 UTC
# Line 134  Line 134 
134    (format nil "~{~',,',^~A~}" '(1 2 3))    (format nil "~{~',,',^~A~}" '(1 2 3))
135    "")    "")
136    
137    (deftest format.^.{.31
138      (format nil "~{~1,v,v^~A~}" '(#\a nil 0))
139      "0")
140    
141    (deftest format.^.{.32
142      (format nil "~{~v,1,v^~A~}" '(#\a nil 0))
143      "0")
144    
145    (deftest format.^.{.33
146      (format nil "~{~v,v,v^~A~}" '(#\a #\a nil 0))
147      "")
148    
149  ;;; ~^ with ~:{  ;;; ~^ with ~:{
150    
151  (deftest format.^.\:{.1  (deftest format.^.\:{.1
# Line 283  Line 295 
295  (deftest format.^.\:{.37  (deftest format.^.\:{.37
296    (format nil "~:{~#,#,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))    (format nil "~:{~#,#,#^~A~}" '((1) (2 1) (3 2 1) (4 3 2 1) (5 4 3 2 1)))
297    "")    "")
298    
299    (deftest format.^.\:{.38
300      (format nil "~:{~1,v,v^~A~}" '((#\a nil 0)))
301      "0")
302    
303    (deftest format.^.\:{.39
304      (format nil "~:{~v,1,v^~A~}" '((#\a nil 0)))
305      "0")
306    

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

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