43 |
nil) |
nil) |
44 |
|
|
45 |
(def-format-test format.{.9 |
(def-format-test format.{.9 |
46 |
"~#{~A~}" ('(1 2 3 4 5 6 7) nil nil nil) "1234") |
"~#{~A~}" ('(1 2 3 4 5 6 7) nil nil nil) "1234" 3) |
47 |
|
|
48 |
;;; (missing tests involved ~^ and have been moved to format-circumflex.lsp |
;;; (missing tests involved ~^ and have been moved to format-circumflex.lsp |
49 |
;;; and renamed.) |
;;; and renamed.) |
154 |
"~V:{X~}" (nil '((1) (2) (3) nil (5))) "XXXXX") |
"~V:{X~}" (nil '((1) (2) (3) nil (5))) "XXXXX") |
155 |
|
|
156 |
(def-format-test format.\:{.13 |
(def-format-test format.\:{.13 |
157 |
"~#:{~A~}" ('((1) (2) (3) (4) (5)) 'foo 'bar) "123") |
"~#:{~A~}" ('((1) (2) (3) (4) (5)) 'foo 'bar) "123" 2) |
158 |
|
|
159 |
(def-format-test format.\:{.14 |
(def-format-test format.\:{.14 |
160 |
"~:{~A~:}" ('((1 X) (2 Y) (3) (4 A B))) "1234") |
"~:{~A~:}" ('((1 X) (2 Y) (3) (4 A B))) "1234") |
243 |
"~:@{~A~:}" ('(1 A) '(2 B) '(3) '(4 C D)) "1234") |
"~:@{~A~:}" ('(1 A) '(2 B) '(3) '(4 C D)) "1234") |
244 |
|
|
245 |
(def-format-test format.\:@.7 |
(def-format-test format.\:@.7 |
246 |
"~0:@{~A~:}" ('(1 A) '(2 B) '(3) '(4 C D)) "") |
"~0:@{~A~:}" ('(1 A) '(2 B) '(3) '(4 C D)) "" 4) |
247 |
|
|
248 |
(def-format-test format.\:@.8 |
(def-format-test format.\:@.8 |
249 |
"~#:@{A~:}" (nil nil nil) "AAA") |
"~#:@{A~:}" (nil nil nil) "AAA") |