30 |
collect it) |
collect it) |
31 |
nil) |
nil) |
32 |
|
|
33 |
(deftest format.paren.3 |
(def-format-test format.paren.3 |
34 |
(format nil "~@(this is a TEST.~)") |
"~@(this is a TEST.~)" nil "This is a test.") |
35 |
"This is a test.") |
|
36 |
|
(def-format-test format.paren.4 |
37 |
(deftest format.paren.4 |
"~@(!@#$%^&*this is a TEST.~)" nil "!@#$%^&*This is a test.") |
38 |
(format nil "~@(!@#$%^&*this is a TEST.~)") |
|
39 |
"!@#$%^&*This is a test.") |
(def-format-test format.paren.5 |
40 |
|
"~:(this is a TEST.~)" nil "This Is A Test.") |
|
(deftest format.paren.5 |
|
|
(format nil "~:(this is a TEST.~)") |
|
|
"This Is A Test.") |
|
41 |
|
|
42 |
(deftest format.paren.6 |
(def-format-test format.paren.6 |
43 |
(format nil "~:(this is7a TEST.~)") |
"~:(this is7a TEST.~)" nil "This Is7a Test.") |
44 |
"This Is7a Test.") |
|
45 |
|
(def-format-test format.paren.7 |
46 |
(deftest format.paren.7 |
"~:@(this is AlSo A teSt~)" nil "THIS IS ALSO A TEST") |
|
(format nil "~:@(this is AlSo A teSt~)") |
|
|
"THIS IS ALSO A TEST") |
|
47 |
|
|
48 |
(deftest format.paren.8 |
(deftest format.paren.8 |
49 |
(loop for i from 0 below (min char-code-limit (ash 1 16)) |
(loop for i from 0 below (min char-code-limit (ash 1 16)) |
65 |
|
|
66 |
;;; Nested conversion |
;;; Nested conversion |
67 |
|
|
68 |
(deftest format.paren.9 |
(def-format-test format.paren.9 |
69 |
(format nil "~(aBc ~:(def~) GHi~)") |
"~(aBc ~:(def~) GHi~)" nil "abc def ghi") |
70 |
"abc def ghi") |
|
71 |
|
(def-format-test format.paren.10 |
72 |
(deftest format.paren.10 |
"~(aBc ~(def~) GHi~)" nil "abc def ghi") |
73 |
(format nil "~(aBc ~(def~) GHi~)") |
|
74 |
"abc def ghi") |
(def-format-test format.paren.11 |
75 |
|
"~@(aBc ~:(def~) GHi~)" nil "Abc def ghi") |
76 |
(deftest format.paren.11 |
|
77 |
(format nil "~@(aBc ~:(def~) GHi~)") |
(def-format-test format.paren.12 |
78 |
"Abc def ghi") |
"~(aBc ~@(def~) GHi~)" nil "abc def ghi") |
79 |
|
|
80 |
(deftest format.paren.12 |
(def-format-test format.paren.13 |
81 |
(format nil "~(aBc ~@(def~) GHi~)") |
"~(aBc ~:(def~) GHi~)" nil "abc def ghi") |
82 |
"abc def ghi") |
|
83 |
|
(def-format-test format.paren.14 |
84 |
(deftest format.paren.13 |
"~:(aBc ~(def~) GHi~)" nil "Abc Def Ghi") |
85 |
(format nil "~(aBc ~:(def~) GHi~)") |
|
86 |
"abc def ghi") |
(def-format-test format.paren.15 |
87 |
|
"~:(aBc ~:(def~) GHi~)" nil "Abc Def Ghi") |
88 |
(deftest format.paren.14 |
|
89 |
(format nil "~:(aBc ~(def~) GHi~)") |
(def-format-test format.paren.16 |
90 |
"Abc Def Ghi") |
"~:(aBc ~@(def~) GHi~)" nil "Abc Def Ghi") |
91 |
|
|
92 |
(deftest format.paren.15 |
(def-format-test format.paren.17 |
93 |
(format nil "~:(aBc ~:(def~) GHi~)") |
"~:(aBc ~@:(def~) GHi~)" nil "Abc Def Ghi") |
94 |
"Abc Def Ghi") |
|
95 |
|
(def-format-test format.paren.18 |
96 |
(deftest format.paren.16 |
"~@(aBc ~(def~) GHi~)" nil "Abc def ghi") |
97 |
(format nil "~:(aBc ~@(def~) GHi~)") |
|
98 |
"Abc Def Ghi") |
(def-format-test format.paren.19 |
99 |
|
"~@(aBc ~:(def~) GHi~)" nil "Abc def ghi") |
100 |
(deftest format.paren.17 |
|
101 |
(format nil "~:(aBc ~@:(def~) GHi~)") |
(def-format-test format.paren.20 |
102 |
"Abc Def Ghi") |
"~@(aBc ~@(def~) GHi~)" nil "Abc def ghi") |
103 |
|
|
104 |
(deftest format.paren.18 |
(def-format-test format.paren.21 |
105 |
(format nil "~@(aBc ~(def~) GHi~)") |
"~@(aBc ~@:(def~) GHi~)" nil "Abc def ghi") |
106 |
"Abc def ghi") |
|
107 |
|
(def-format-test format.paren.22 |
108 |
(deftest format.paren.19 |
"~:@(aBc ~(def~) GHi~)" nil "ABC DEF GHI") |
109 |
(format nil "~@(aBc ~:(def~) GHi~)") |
|
110 |
"Abc def ghi") |
(def-format-test format.paren.23 |
111 |
|
"~@:(aBc ~:(def~) GHi~)" nil "ABC DEF GHI") |
112 |
(deftest format.paren.20 |
|
113 |
(format nil "~@(aBc ~@(def~) GHi~)") |
(def-format-test format.paren.24 |
114 |
"Abc def ghi") |
"~:@(aBc ~@(def~) GHi~)" nil "ABC DEF GHI") |
115 |
|
|
116 |
(deftest format.paren.21 |
(def-format-test format.paren.25 |
117 |
(format nil "~@(aBc ~@:(def~) GHi~)") |
"~@:(aBc ~@:(def~) GHi~)" nil "ABC DEF GHI") |
|
"Abc def ghi") |
|
|
|
|
|
(deftest format.paren.22 |
|
|
(format nil "~:@(aBc ~(def~) GHi~)") |
|
|
"ABC DEF GHI") |
|
|
|
|
|
(deftest format.paren.23 |
|
|
(format nil "~@:(aBc ~:(def~) GHi~)") |
|
|
"ABC DEF GHI") |
|
|
|
|
|
(deftest format.paren.24 |
|
|
(format nil "~:@(aBc ~@(def~) GHi~)") |
|
|
"ABC DEF GHI") |
|
|
|
|
|
(deftest format.paren.25 |
|
|
(format nil "~@:(aBc ~@:(def~) GHi~)") |
|
|
"ABC DEF GHI") |
|