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