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

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

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

revision 1.1 by pfdietz, Tue Aug 24 12:24:39 2004 UTC revision 1.2 by pfdietz, Tue Aug 24 13:13:15 2004 UTC
# Line 41  Line 41 
41    (format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7)    (format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7)
42    "013467")    "013467")
43    
44    (deftest format.*.9
45      (format nil "~A~{~A~A~A~A~v*~^~A~A~A~A~}~A" 0 '(1 2 3 4 nil 6 7 8 9 #\A) 5)
46      "01234789A5")
47    
48  ;;; ~:*  ;;; ~:*
49    
50  (deftest format.\:*.1  (deftest format.\:*.1
# Line 71  Line 75 
75    (format nil "~A~A~v:*~A" 6 7 nil 3)    (format nil "~A~A~v:*~A" 6 7 nil 3)
76    "67NIL")    "67NIL")
77    
78    (deftest format.\:*.8
79      (format nil "~A~1{~A~:*~A~}~A" 0 '(1 2 3) 4)
80      "0114")
81    
82    (deftest format.\:*.9
83      (format nil "~A~1{~A~A~A~:*~A~}~A" 0 '(1 2 3 4) 5)
84      "012335")
85    
86    (deftest format.\:*.10
87      (format nil "~A~1{~A~A~A~2:*~A~A~}~A" 0 '(1 2 3 4) 5)
88      "0123235")
89    
90    (deftest format.\:*.11
91      (format nil "~A~{~A~A~A~3:*~A~A~A~A~}~A" 0 '(1 2 3 4) 5)
92      "012312345")
93    
94    (deftest format.\:*.12
95      (format nil "~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" 0 '(1 2 3 4) 5)
96      "0123412345")
97    
98    (def-pprint-test format.\:*.13
99      (format nil "~A~{~A~A~A~A~v:*~^~A~}~A" 0 '(1 2 3 4 nil) 5)
100      "01234NIL5")
101    
102  ;;; ~@*  ;;; ~@*
103    
104  (deftest format.@*.1  (deftest format.@*.1
# Line 101  Line 129 
129    (format nil "~A~A~v@*~A~A" 6 7 2 3 4)    (format nil "~A~A~v@*~A~A" 6 7 2 3 4)
130    "6723")    "6723")
131    
132    (deftest format.@*.8
133      (format nil "~A~{~A~A~@*~A~A~}~A" 0 '(1 2) 9)
134      "012129")
135    
136    (deftest format.@*.9
137      (format nil "~A~{~A~A~0@*~A~A~}~A" 0 '(1 2) 9)
138      "012129")
139    
140    (deftest format.@*.10
141      (format nil "~A~1{~A~A~v@*~A~A~}~A" 0 '(1 2 nil) 9)
142      "012129")
143    
144    (deftest format.@*.11
145      (format nil "~A~{~A~A~1@*~A~}~A" 0 '(1 2) 9)
146      "01229")
147    

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