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 |
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 |
|
|