18 |
(ycopy (make-scaffold-copy y))) |
(ycopy (make-scaffold-copy y))) |
19 |
(let ((result (apply #'set-difference |
(let ((result (apply #'set-difference |
20 |
x y |
x y |
21 |
`(,@(unless (eq key 'no-key) `(:key ,key)) |
`(,@(unless (eqt key 'no-key) `(:key ,key)) |
22 |
,@(when test `(:test ,test)) |
,@(when test `(:test ,test)) |
23 |
,@(when test-not `(:test-not ,test-not)))))) |
,@(when test-not `(:test-not ,test-not)))))) |
24 |
(cond |
(cond |
31 |
(defun check-set-difference (x y z &key (key #'identity) |
(defun check-set-difference (x y z &key (key #'identity) |
32 |
(test #'eql)) |
(test #'eql)) |
33 |
(and |
(and |
34 |
(not (eq 'failed z)) |
(not (eqt 'failed z)) |
35 |
(every #'(lambda (e) (member e x :key key :test test)) z) |
(every #'(lambda (e) (member e x :key key :test test)) z) |
36 |
(every #'(lambda (e) (or (member e y :key key :test test) |
(every #'(lambda (e) (or (member e y :key key :test test) |
37 |
(member e z :key key :test test))) x) |
(member e z :key key :test test))) x) |
143 |
(when (or (member x '(e f g h)) |
(when (or (member x '(e f g h)) |
144 |
(member y '(1 2 3 4))) |
(member y '(1 2 3 4))) |
145 |
(return-from fail 'fail)) |
(return-from fail 'fail)) |
146 |
(eq x y)))) |
(eqt x y)))) |
147 |
#'<)) |
#'<)) |
148 |
(1 2 3 4)) |
(1 2 3 4)) |
149 |
|
|
158 |
(when (or (member x '(e f g h)) |
(when (or (member x '(e f g h)) |
159 |
(member y '(1 2 3 4))) |
(member y '(1 2 3 4))) |
160 |
(return-from fail 'fail)) |
(return-from fail 'fail)) |
161 |
(eq x y)))) |
(eqt x y)))) |
162 |
#'<)) |
#'<)) |
163 |
(1 2 3 4)) |
(1 2 3 4)) |
164 |
|
|
173 |
(when (or (member x '(e f g h)) |
(when (or (member x '(e f g h)) |
174 |
(member y '(1 2 3 4))) |
(member y '(1 2 3 4))) |
175 |
(return-from fail 'fail)) |
(return-from fail 'fail)) |
176 |
(not (eq x y))))) |
(not (eqt x y))))) |
177 |
#'<)) |
#'<)) |
178 |
(1 2 3 4)) |
(1 2 3 4)) |
179 |
|
|
188 |
(when (or (member x '(e f g h)) |
(when (or (member x '(e f g h)) |
189 |
(member y '(1 2 3 4))) |
(member y '(1 2 3 4))) |
190 |
(return-from fail 'fail)) |
(return-from fail 'fail)) |
191 |
(not (eq x y))))) |
(not (eqt x y))))) |
192 |
#'<)) |
#'<)) |
193 |
(1 2 3 4)) |
(1 2 3 4)) |
194 |
|
|
201 |
(setf y (copy-list y)) |
(setf y (copy-list y)) |
202 |
(apply #'nset-difference |
(apply #'nset-difference |
203 |
x y |
x y |
204 |
`(,@(unless (eq key 'no-key) `(:key ,key)) |
`(,@(unless (eqt key 'no-key) `(:key ,key)) |
205 |
,@(when test `(:test ,test)) |
,@(when test `(:test ,test)) |
206 |
,@(when test-not `(:test-not ,test-not))))) |
,@(when test-not `(:test-not ,test-not))))) |
207 |
|
|
318 |
(when (or (member x '(e f g h)) |
(when (or (member x '(e f g h)) |
319 |
(member y '(1 2 3 4))) |
(member y '(1 2 3 4))) |
320 |
(return-from fail 'fail)) |
(return-from fail 'fail)) |
321 |
(eq x y)))) |
(eqt x y)))) |
322 |
#'<)) |
#'<)) |
323 |
(1 2 3 4)) |
(1 2 3 4)) |
324 |
|
|
333 |
(when (or (member x '(e f g h)) |
(when (or (member x '(e f g h)) |
334 |
(member y '(1 2 3 4))) |
(member y '(1 2 3 4))) |
335 |
(return-from fail 'fail)) |
(return-from fail 'fail)) |
336 |
(eq x y)))) |
(eqt x y)))) |
337 |
#'<)) |
#'<)) |
338 |
(1 2 3 4)) |
(1 2 3 4)) |
339 |
|
|
348 |
(when (or (member x '(e f g h)) |
(when (or (member x '(e f g h)) |
349 |
(member y '(1 2 3 4))) |
(member y '(1 2 3 4))) |
350 |
(return-from fail 'fail)) |
(return-from fail 'fail)) |
351 |
(not (eq x y))))) |
(not (eqt x y))))) |
352 |
#'<)) |
#'<)) |
353 |
(1 2 3 4)) |
(1 2 3 4)) |
354 |
|
|
362 |
(when (or (member x '(e f g h)) |
(when (or (member x '(e f g h)) |
363 |
(member y '(1 2 3 4))) |
(member y '(1 2 3 4))) |
364 |
(return-from fail 'fail)) |
(return-from fail 'fail)) |
365 |
(not (eq x y))))) |
(not (eqt x y))))) |
366 |
#'<)) |
#'<)) |
367 |
(1 2 3 4)) |
(1 2 3 4)) |