9 |
|
|
10 |
;;; ~* |
;;; ~* |
11 |
|
|
12 |
(deftest format.*.1 |
(def-format-test format.*.1 |
13 |
(format nil "~A~*~A" 1 2 3) |
"~A~*~A" (1 2 3) "13") |
|
"13") |
|
|
|
|
|
(deftest format.*.2 |
|
|
(format nil "~A~0*~A" 1 2 3) |
|
|
"12") |
|
|
|
|
|
(deftest format.*.3 |
|
|
(format nil "~A~v*~A" 1 0 2) |
|
|
"12") |
|
|
|
|
|
(deftest format.*.4 |
|
|
(format nil "~A~v*~A" 1 1 2 3) |
|
|
"13") |
|
|
|
|
|
(deftest format.*.5 |
|
|
(format nil "~A~v*~A" 1 nil 2 3) |
|
|
"13") |
|
|
|
|
|
(deftest format.*.6 |
|
|
(format nil "~A~1{~A~*~A~}~A" 0 '(1 2 3) 4) |
|
|
"0134") |
|
|
|
|
|
(deftest format.*.7 |
|
|
(format nil "~A~1{~A~0*~A~}~A" 0 '(1 2 3) 4) |
|
|
"0124") |
|
|
|
|
|
(deftest format.*.8 |
|
|
(format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7) |
|
|
"013467") |
|
14 |
|
|
15 |
(deftest format.*.9 |
(def-format-test format.*.2 |
16 |
(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) |
"~A~0*~A" (1 2 3) "12") |
17 |
|
|
18 |
|
(def-format-test format.*.3 |
19 |
|
"~A~v*~A" (1 0 2) "12") |
20 |
|
|
21 |
|
(def-format-test format.*.4 |
22 |
|
"~A~v*~A" (1 1 2 3) "13") |
23 |
|
|
24 |
|
(def-format-test format.*.5 |
25 |
|
"~A~v*~A" (1 nil 2 3) "13") |
26 |
|
|
27 |
|
(def-format-test format.*.6 |
28 |
|
"~A~1{~A~*~A~}~A" (0 '(1 2 3) 4) "0134") |
29 |
|
|
30 |
|
(def-format-test format.*.7 |
31 |
|
"~A~1{~A~0*~A~}~A" (0 '(1 2 3) 4) "0124") |
32 |
|
|
33 |
|
(def-format-test format.*.8 |
34 |
|
"~A~{~A~*~A~}~A" (0 '(1 2 3 4 5 6) 7) "013467") |
35 |
|
|
36 |
|
(def-format-test format.*.9 |
37 |
|
"~A~{~A~A~A~A~v*~^~A~A~A~A~}~A" (0 '(1 2 3 4 nil 6 7 8 9 #\A) 5) |
38 |
"01234789A5") |
"01234789A5") |
39 |
|
|
40 |
;;; ~:* |
;;; ~:* |
41 |
|
|
42 |
(deftest format.\:*.1 |
(def-format-test format.\:*.1 |
43 |
(format nil "~A~:*~A" 1 2 3) |
"~A~:*~A" (1 2 3) "11") |
44 |
"11") |
|
45 |
|
(def-format-test format.\:*.2 |
46 |
(deftest format.\:*.2 |
"~A~A~:*~A" (1 2 3) "122") |
47 |
(format nil "~A~A~:*~A" 1 2 3) |
|
48 |
"122") |
(def-format-test format.\:*.3 |
49 |
|
"~A~A~0:*~A" (1 2 3) "123") |
50 |
(deftest format.\:*.3 |
|
51 |
(format nil "~A~A~0:*~A" 1 2 3) |
(def-format-test format.\:*.4 |
52 |
"123") |
"~A~A~2:*~A" (1 2 3) "121") |
53 |
|
|
54 |
(deftest format.\:*.4 |
(def-format-test format.\:*.5 |
55 |
(format nil "~A~A~2:*~A" 1 2 3) |
"~A~A~v:*~A" (1 2 0 3) "123") |
56 |
"121") |
|
57 |
|
(def-format-test format.\:*.6 |
58 |
(deftest format.\:*.5 |
"~A~A~v:*~A" (6 7 2 3) "677") |
59 |
(format nil "~A~A~v:*~A" 1 2 0 3) |
|
60 |
"123") |
(def-format-test format.\:*.7 |
61 |
|
"~A~A~v:*~A" (6 7 nil 3) "67NIL") |
62 |
(deftest format.\:*.6 |
|
63 |
(format nil "~A~A~v:*~A" 6 7 2 3) |
(def-format-test format.\:*.8 |
64 |
"677") |
"~A~1{~A~:*~A~}~A" (0 '(1 2 3) 4) "0114") |
65 |
|
|
66 |
(def-pprint-test format.\:*.7 |
(def-format-test format.\:*.9 |
67 |
(format nil "~A~A~v:*~A" 6 7 nil 3) |
"~A~1{~A~A~A~:*~A~}~A" (0 '(1 2 3 4) 5) "012335") |
68 |
"67NIL") |
|
69 |
|
(def-format-test format.\:*.10 |
70 |
(deftest format.\:*.8 |
"~A~1{~A~A~A~2:*~A~A~}~A" (0 '(1 2 3 4) 5) "0123235") |
71 |
(format nil "~A~1{~A~:*~A~}~A" 0 '(1 2 3) 4) |
|
72 |
"0114") |
(def-format-test format.\:*.11 |
73 |
|
"~A~{~A~A~A~3:*~A~A~A~A~}~A" (0 '(1 2 3 4) 5) "012312345") |
74 |
(deftest format.\:*.9 |
|
75 |
(format nil "~A~1{~A~A~A~:*~A~}~A" 0 '(1 2 3 4) 5) |
(def-format-test format.\:*.12 |
76 |
"012335") |
"~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" (0 '(1 2 3 4) 5) "0123412345") |
77 |
|
|
78 |
(deftest format.\:*.10 |
(def-format-test format.\:*.13 |
79 |
(format nil "~A~1{~A~A~A~2:*~A~A~}~A" 0 '(1 2 3 4) 5) |
"~A~{~A~A~A~A~v:*~^~A~}~A" (0 '(1 2 3 4 nil) 5) "01234NIL5") |
|
"0123235") |
|
|
|
|
|
(deftest format.\:*.11 |
|
|
(format nil "~A~{~A~A~A~3:*~A~A~A~A~}~A" 0 '(1 2 3 4) 5) |
|
|
"012312345") |
|
|
|
|
|
(deftest format.\:*.12 |
|
|
(format nil "~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" 0 '(1 2 3 4) 5) |
|
|
"0123412345") |
|
|
|
|
|
(def-pprint-test format.\:*.13 |
|
|
(format nil "~A~{~A~A~A~A~v:*~^~A~}~A" 0 '(1 2 3 4 nil) 5) |
|
|
"01234NIL5") |
|
80 |
|
|
81 |
;;; ~@* |
;;; ~@* |
82 |
|
|
83 |
(deftest format.@*.1 |
(def-format-test format.@*.1 |
84 |
(format nil "~A~A~@*~A~A" 1 2 3 4) |
"~A~A~@*~A~A" (1 2 3 4) "1212") |
85 |
"1212") |
|
86 |
|
(def-format-test format.@*.2 |
87 |
(deftest format.@*.2 |
"~A~A~1@*~A~A" (1 2 3 4) "1223") |
88 |
(format nil "~A~A~1@*~A~A" 1 2 3 4) |
|
89 |
"1223") |
(def-format-test format.@*.3 |
90 |
|
"~A~A~2@*~A~A" (1 2 3 4) "1234") |
91 |
(deftest format.@*.3 |
|
92 |
(format nil "~A~A~2@*~A~A" 1 2 3 4) |
(def-format-test format.@*.4 |
93 |
"1234") |
"~A~A~3@*~A~A" (1 2 3 4 5) "1245") |
94 |
|
|
95 |
(deftest format.@*.4 |
(def-format-test format.@*.5 |
96 |
(format nil "~A~A~3@*~A~A" 1 2 3 4 5) |
"~A~A~v@*~A~A" (1 2 nil 3 4) "1212") |
97 |
"1245") |
|
98 |
|
(def-format-test format.@*.6 |
99 |
(deftest format.@*.5 |
"~A~A~v@*~A~A" (1 2 1 3 4) "1221") |
100 |
(format nil "~A~A~v@*~A~A" 1 2 nil 3 4) |
|
101 |
"1212") |
(def-format-test format.@*.7 |
102 |
|
"~A~A~v@*~A~A" (6 7 2 3 4) "6723") |
103 |
(deftest format.@*.6 |
|
104 |
(format nil "~A~A~v@*~A~A" 1 2 1 3 4) |
(def-format-test format.@*.8 |
105 |
"1221") |
"~A~{~A~A~@*~A~A~}~A" (0 '(1 2) 9) "012129") |
106 |
|
|
107 |
(deftest format.@*.7 |
(def-format-test format.@*.9 |
108 |
(format nil "~A~A~v@*~A~A" 6 7 2 3 4) |
"~A~{~A~A~0@*~A~A~}~A" (0 '(1 2) 9) "012129") |
109 |
"6723") |
|
110 |
|
(def-format-test format.@*.10 |
111 |
(deftest format.@*.8 |
"~A~1{~A~A~v@*~A~A~}~A" (0 '(1 2 nil) 9) "012129") |
|
(format nil "~A~{~A~A~@*~A~A~}~A" 0 '(1 2) 9) |
|
|
"012129") |
|
|
|
|
|
(deftest format.@*.9 |
|
|
(format nil "~A~{~A~A~0@*~A~A~}~A" 0 '(1 2) 9) |
|
|
"012129") |
|
|
|
|
|
(deftest format.@*.10 |
|
|
(format nil "~A~1{~A~A~v@*~A~A~}~A" 0 '(1 2 nil) 9) |
|
|
"012129") |
|
|
|
|
|
(deftest format.@*.11 |
|
|
(format nil "~A~{~A~A~1@*~A~}~A" 0 '(1 2) 9) |
|
|
"01229") |
|
112 |
|
|
113 |
|
(def-format-test format.@*.11 |
114 |
|
"~A~{~A~A~1@*~A~}~A" (0 '(1 2) 9) "01229") |