149 |
#'<)) |
#'<)) |
150 |
(1 2 3 4)) |
(1 2 3 4)) |
151 |
|
|
152 |
|
(deftest set-difference.error.1 |
153 |
|
(classify-error (set-difference)) |
154 |
|
program-error) |
155 |
|
|
156 |
|
(deftest set-difference.error.2 |
157 |
|
(classify-error (set-difference nil)) |
158 |
|
program-error) |
159 |
|
|
160 |
|
(deftest set-difference.error.3 |
161 |
|
(classify-error (set-difference nil nil :bad t)) |
162 |
|
program-error) |
163 |
|
|
164 |
|
(deftest set-difference.error.4 |
165 |
|
(classify-error (set-difference nil nil :key)) |
166 |
|
program-error) |
167 |
|
|
168 |
|
(deftest set-difference.error.5 |
169 |
|
(classify-error (set-difference nil nil 1 2)) |
170 |
|
program-error) |
171 |
|
|
172 |
|
(deftest set-difference.error.6 |
173 |
|
(classify-error (set-difference nil nil :bad t :allow-other-keys nil)) |
174 |
|
program-error) |
175 |
|
|
176 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
177 |
;;; nset-difference |
;;; nset-difference |
178 |
|
|
313 |
(not (eqt x y))))) |
(not (eqt x y))))) |
314 |
#'<)) |
#'<)) |
315 |
(1 2 3 4)) |
(1 2 3 4)) |
316 |
|
|
317 |
|
(deftest nset-difference.error.1 |
318 |
|
(classify-error (nset-difference)) |
319 |
|
program-error) |
320 |
|
|
321 |
|
(deftest nset-difference.error.2 |
322 |
|
(classify-error (nset-difference nil)) |
323 |
|
program-error) |
324 |
|
|
325 |
|
(deftest nset-difference.error.3 |
326 |
|
(classify-error (nset-difference nil nil :bad t)) |
327 |
|
program-error) |
328 |
|
|
329 |
|
(deftest nset-difference.error.4 |
330 |
|
(classify-error (nset-difference nil nil :key)) |
331 |
|
program-error) |
332 |
|
|
333 |
|
(deftest nset-difference.error.5 |
334 |
|
(classify-error (nset-difference nil nil 1 2)) |
335 |
|
program-error) |
336 |
|
|
337 |
|
(deftest nset-difference.error.6 |
338 |
|
(classify-error (nset-difference nil nil :bad t :allow-other-keys nil)) |
339 |
|
program-error) |