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

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

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

revision 1.7 by pfdietz, Thu Nov 11 13:31:33 2004 UTC revision 1.8 by pfdietz, Fri Nov 12 12:59:47 2004 UTC
# Line 56  Line 56 
56    (format nil "~#{~A~}" '(1 2 3 4 5 6 7) nil nil nil)    (format nil "~#{~A~}" '(1 2 3 4 5 6 7) nil nil nil)
57    "1234")    "1234")
58    
59  ;;; Tests of ~^ inside ~{ ... ~}  ;;; (missing tests involved ~^ and have been moved to format-circumflex.lsp
60    ;;;  and renamed.)
 (deftest format.{.10  
   (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4 5))  
   "X 1 Y 2 X 3 Y 4 X 5")  
   
 (deftest format.{.11  
   (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4))  
   "X 1 Y 2 X 3 Y 4")  
   
 (deftest format.{.12  
   (format nil "~1{~A~^~A~}" '(1))  
   "1")  
   
 (deftest format.{.13  
   (format nil "~0{~A~^~A~}" '(1))  
   "")  
   
 (deftest format.{.14  
   (format nil "~1{~A~^~A~}" '(1 2 3))  
   "12")  
61    
62  (deftest format.{.15  (deftest format.{.15
63    (format nil "~0{~}" "~A" '(1 2 3))    (format nil "~0{~}" "~A" '(1 2 3))
# Line 230  Line 211 
211    (format nil "~v:{ABC~:}" nil '(nil))    (format nil "~v:{ABC~:}" nil '(nil))
212    "ABC")    "ABC")
213    
 ;;; ~^ in ~:{ ... ~:}  
   
   
214    
215  ;;; Tests of ~@{ ... ~}  ;;; Tests of ~@{ ... ~}
216    

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

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