1211 |
(member e z :key key :test test))) |
(member e z :key key :test test))) |
1212 |
t)) |
t)) |
1213 |
|
|
1214 |
|
#| |
1215 |
(defun do-random-set-exclusive-ors (size niters &optional (maxelem (* 2 size))) |
(defun do-random-set-exclusive-ors (size niters &optional (maxelem (* 2 size))) |
1216 |
(let ((state (make-random-state))) |
(let ((state (make-random-state))) |
1217 |
(loop |
(loop |
1224 |
(let ((is-good (check-set-exclusive-or x y z))) |
(let ((is-good (check-set-exclusive-or x y z))) |
1225 |
(unless is-good (return (values x y z))))))) |
(unless is-good (return (values x y z))))))) |
1226 |
nil)) |
nil)) |
1227 |
|
|# |
1228 |
|
|
1229 |
(defun nset-exclusive-or-with-check (x y &key (key 'no-key) |
(defun nset-exclusive-or-with-check (x y &key (key 'no-key) |
1230 |
test test-not) |
test test-not) |
1236 |
,@(when test `(:test ,test)) |
,@(when test `(:test ,test)) |
1237 |
,@(when test-not `(:test-not ,test-not))))) |
,@(when test-not `(:test-not ,test-not))))) |
1238 |
|
|
1239 |
|
#| |
1240 |
(defun do-random-nset-exclusive-ors (size niters &optional (maxelem (* 2 size))) |
(defun do-random-nset-exclusive-ors (size niters &optional (maxelem (* 2 size))) |
1241 |
(let ((state (make-random-state))) |
(let ((state (make-random-state))) |
1242 |
(loop |
(loop |
1249 |
(let ((is-good (check-set-exclusive-or x y z))) |
(let ((is-good (check-set-exclusive-or x y z))) |
1250 |
(unless is-good (return (values x y z))))))) |
(unless is-good (return (values x y z))))))) |
1251 |
nil)) |
nil)) |
1252 |
|
|# |
1253 |
|
|
1254 |
(defun subsetp-with-check (x y &key (key 'no-key) test test-not) |
(defun subsetp-with-check (x y &key (key 'no-key) test test-not) |
1255 |
(let ((xcopy (make-scaffold-copy x)) |
(let ((xcopy (make-scaffold-copy x)) |