18 |
(ycopy (make-scaffold-copy y))) |
(ycopy (make-scaffold-copy y))) |
19 |
(let ((result (apply #'set-exclusive-or |
(let ((result (apply #'set-exclusive-or |
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-exclusive-or (x y z &key (key #'identity) |
(defun check-set-exclusive-or (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) (or (member e x :key key :test test) |
(every #'(lambda (e) (or (member e x :key key :test test) |
36 |
(member e y :key key :test test))) |
(member e y :key key :test test))) |
37 |
z) |
z) |
229 |
(setf y (copy-list y)) |
(setf y (copy-list y)) |
230 |
(apply #'nset-exclusive-or |
(apply #'nset-exclusive-or |
231 |
x y |
x y |
232 |
`(,@(unless (eq key 'no-key) `(:key ,key)) |
`(,@(unless (eqt key 'no-key) `(:key ,key)) |
233 |
,@(when test `(:test ,test)) |
,@(when test `(:test ,test)) |
234 |
,@(when test-not `(:test-not ,test-not))))) |
,@(when test-not `(:test-not ,test-not))))) |
235 |
|
|