128 |
(revappend (copy-tree '(a (b c) d)) nil) |
(revappend (copy-tree '(a (b c) d)) nil) |
129 |
(d (b c) a)) |
(d (b c) a)) |
130 |
|
|
131 |
|
(deftest revappend.error.1 |
132 |
|
(classify-error (revappend)) |
133 |
|
program-error) |
134 |
|
|
135 |
|
(deftest revappend.error.2 |
136 |
|
(classify-error (revappend nil)) |
137 |
|
program-error) |
138 |
|
|
139 |
|
(deftest revappend.error.3 |
140 |
|
(classify-error (revappend nil nil nil)) |
141 |
|
program-error) |
142 |
|
|
143 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
144 |
;;; nreconc |
;;; nreconc |
145 |
|
|
155 |
(nreconc nil 'a) |
(nreconc nil 'a) |
156 |
a) |
a) |
157 |
|
|
158 |
|
(deftest nreconc.error.1 |
159 |
|
(classify-error (nreconc)) |
160 |
|
program-error) |
161 |
|
|
162 |
|
(deftest nreconc.error.2 |
163 |
|
(classify-error (nreconc nil)) |
164 |
|
program-error) |
165 |
|
|
166 |
|
(deftest nreconc.error.3 |
167 |
|
(classify-error (nreconc nil nil nil)) |
168 |
|
program-error) |