13 |
"") |
"") |
14 |
|
|
15 |
(deftest format.{.1a |
(deftest format.{.1a |
16 |
(format nil "~{~}" nil) |
(format nil "~{~}" "" nil) |
17 |
"") |
"") |
18 |
|
|
19 |
(deftest format.{.1b |
(deftest format.{.1b |
20 |
(format nil "~0{~}" '(1 2 3)) |
(format nil "~0{~}" "" '(1 2 3)) |
21 |
"") |
"") |
22 |
|
|
23 |
(deftest format.{.2 |
(deftest format.{.2 |
72 |
(format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4)) |
(format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4)) |
73 |
"X 1 Y 2 X 3 Y 4") |
"X 1 Y 2 X 3 Y 4") |
74 |
|
|
75 |
|
(deftest format.{.12 |
76 |
|
(format nil "~1{~A~^~A~}" '(1)) |
77 |
|
"1") |
78 |
|
|
79 |
|
(deftest format.{.13 |
80 |
|
(format nil "~0{~A~^~A~}" '(1)) |
81 |
|
"") |
82 |
|
|
83 |
|
(deftest format.{.14 |
84 |
|
(format nil "~1{~A~^~A~}" '(1 2 3)) |
85 |
|
"12") |
86 |
|
|
87 |
|
(deftest format.{.15 |
88 |
|
(format nil "~0{~}" "~A" '(1 2 3)) |
89 |
|
"") |
90 |
|
|
91 |
|
(deftest format.{.16 |
92 |
|
(format nil "~1{~}" "~A" '(4 5 6)) |
93 |
|
"4") |
94 |
|
|
95 |
|
|
96 |
|
|
97 |
|
|
98 |
;;; Tests of ~@{ ... ~} |
;;; Tests of ~@{ ... ~} |
99 |
|
|
100 |
(deftest format.@{.1 |
(deftest format.@{.1 |
101 |
(format nil "~@{~}") |
(format nil "~@{~ |
102 |
|
~}") |
103 |
|
"") |
104 |
|
|
105 |
|
(deftest format.@{.1A |
106 |
|
(format nil "~@{~}" "") |
107 |
"") |
"") |
108 |
|
|
109 |
(deftest format.@{.2 |
(deftest format.@{.2 |