115 |
"123") |
"123") |
116 |
|
|
117 |
(deftest format.^.{.26 |
(deftest format.^.{.26 |
118 |
(format nil "~{~'XA~}" '(1 2 3)) |
(format nil "~{~'X^~A~}" '(1 2 3)) |
119 |
"123") |
"123") |
120 |
|
|
121 |
(deftest format.^.{.27 |
(deftest format.^.{.27 |
122 |
(format nil "~{~v,'XA~}" '(0 1 #\x 2 nil 3 #\X 4 0 5)) |
(format nil "~{~v,'X^~A~}" '(0 1 #\x 2 nil 3 #\X 4 0 5)) |
123 |
"123") |
"123") |
124 |
|
|
125 |
|
(deftest format.^.{.28 |
126 |
|
(format nil "~{~'X,v^~A~}" '(0 1 #\x 2 nil 3 #\X 4 0 5)) |
127 |
|
"123") |
128 |
|
|
129 |
|
(deftest format.^.{.29 |
130 |
|
(format nil "~{~v,v^~A~}" '(0 2 1 #\x #\X 2 5 #\X 3 #\y #\y 4 1 2 5)) |
131 |
|
"123") |
132 |
|
|
133 |
|
(deftest format.^.{.30 |
134 |
|
(format nil "~{~',,',^~A~}" '(1 2 3)) |
135 |
|
"") |