41 |
(format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7) |
(format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7) |
42 |
"013467") |
"013467") |
43 |
|
|
44 |
|
(deftest format.*.9 |
45 |
|
(format nil "~A~{~A~A~A~A~v*~^~A~A~A~A~}~A" 0 '(1 2 3 4 nil 6 7 8 9 #\A) 5) |
46 |
|
"01234789A5") |
47 |
|
|
48 |
;;; ~:* |
;;; ~:* |
49 |
|
|
50 |
(deftest format.\:*.1 |
(deftest format.\:*.1 |
75 |
(format nil "~A~A~v:*~A" 6 7 nil 3) |
(format nil "~A~A~v:*~A" 6 7 nil 3) |
76 |
"67NIL") |
"67NIL") |
77 |
|
|
78 |
|
(deftest format.\:*.8 |
79 |
|
(format nil "~A~1{~A~:*~A~}~A" 0 '(1 2 3) 4) |
80 |
|
"0114") |
81 |
|
|
82 |
|
(deftest format.\:*.9 |
83 |
|
(format nil "~A~1{~A~A~A~:*~A~}~A" 0 '(1 2 3 4) 5) |
84 |
|
"012335") |
85 |
|
|
86 |
|
(deftest format.\:*.10 |
87 |
|
(format nil "~A~1{~A~A~A~2:*~A~A~}~A" 0 '(1 2 3 4) 5) |
88 |
|
"0123235") |
89 |
|
|
90 |
|
(deftest format.\:*.11 |
91 |
|
(format nil "~A~{~A~A~A~3:*~A~A~A~A~}~A" 0 '(1 2 3 4) 5) |
92 |
|
"012312345") |
93 |
|
|
94 |
|
(deftest format.\:*.12 |
95 |
|
(format nil "~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" 0 '(1 2 3 4) 5) |
96 |
|
"0123412345") |
97 |
|
|
98 |
|
(def-pprint-test format.\:*.13 |
99 |
|
(format nil "~A~{~A~A~A~A~v:*~^~A~}~A" 0 '(1 2 3 4 nil) 5) |
100 |
|
"01234NIL5") |
101 |
|
|
102 |
;;; ~@* |
;;; ~@* |
103 |
|
|
104 |
(deftest format.@*.1 |
(deftest format.@*.1 |
129 |
(format nil "~A~A~v@*~A~A" 6 7 2 3 4) |
(format nil "~A~A~v@*~A~A" 6 7 2 3 4) |
130 |
"6723") |
"6723") |
131 |
|
|
132 |
|
(deftest format.@*.8 |
133 |
|
(format nil "~A~{~A~A~@*~A~A~}~A" 0 '(1 2) 9) |
134 |
|
"012129") |
135 |
|
|
136 |
|
(deftest format.@*.9 |
137 |
|
(format nil "~A~{~A~A~0@*~A~A~}~A" 0 '(1 2) 9) |
138 |
|
"012129") |
139 |
|
|
140 |
|
(deftest format.@*.10 |
141 |
|
(format nil "~A~1{~A~A~v@*~A~A~}~A" 0 '(1 2 nil) 9) |
142 |
|
"012129") |
143 |
|
|
144 |
|
(deftest format.@*.11 |
145 |
|
(format nil "~A~{~A~A~1@*~A~}~A" 0 '(1 2) 9) |
146 |
|
"01229") |
147 |
|
|