76 |
(format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10 11 12 13 14)) |
(format nil "~{~#,#,v^~A~}" '(1 2 3 4 5 6 7 8 9 10 11 12 13 14)) |
77 |
"2468") |
"2468") |
78 |
|
|
79 |
|
(deftest format.^.{.18 |
80 |
|
(format nil "~{~v,v^~A~}" (list (1+ most-positive-fixnum) |
81 |
|
(1+ most-positive-fixnum) |
82 |
|
1)) |
83 |
|
"") |
84 |
|
|
85 |
|
(deftest format.^.{.19 |
86 |
|
(format nil "~{~0,v,v^~A~}" (list (1+ most-positive-fixnum) |
87 |
|
(1+ most-positive-fixnum) |
88 |
|
1)) |
89 |
|
"") |
90 |
|
|
91 |
|
(deftest format.^.{.20 |
92 |
|
(format nil "~{~0,v,v^~A~}" (list (1+ most-positive-fixnum) |
93 |
|
most-positive-fixnum |
94 |
|
1)) |
95 |
|
"1") |
96 |
|
|
97 |
|
(deftest format.^.{.21 |
98 |
|
(format nil "~{~1,v^~A~}" '(nil 8 nil 7 0 6 1 5)) |
99 |
|
"876") |
100 |
|
|
101 |
|
(deftest format.^.{.22 |
102 |
|
(format nil "~{~0,v^~A~}" '(3 8 1 7 3 6 nil 5)) |
103 |
|
"876") |
104 |
|
|
105 |
|
(deftest format.^.{.23 |
106 |
|
(format nil "~{~1,2,v^~A~}" '(0 1 0 2 0 3 3 4)) |
107 |
|
"123") |
108 |
|
|
109 |
|
(deftest format.^.{.24 |
110 |
|
(format nil "~{~1,2,v^~A~}" '(0 1 0 2 0 3 nil 4)) |
111 |
|
"1234") |
112 |
|
|
113 |
|
(deftest format.^.{.25 |
114 |
|
(format nil "~{~1,1,v^~A~}" '(0 1 0 2 0 3 nil 4)) |
115 |
|
"123") |
116 |
|
|
117 |
|
(deftest format.^.{.26 |
118 |
|
(format nil "~{~'XA~}" '(1 2 3)) |
119 |
|
"123") |
120 |
|
|
121 |
|
(deftest format.^.{.27 |
122 |
|
(format nil "~{~v,'XA~}" '(0 1 #\x 2 nil 3 #\X 4 0 5)) |
123 |
|
"123") |