205 |
(c . 6)) |
(c . 6)) |
206 |
|
|
207 |
(deftest rassoc-if-2 |
(deftest rassoc-if-2 |
208 |
(handler-case |
(let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d)))) |
209 |
(let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d)))) |
(xcopy (make-scaffold-copy x)) |
210 |
(xcopy (make-scaffold-copy x)) |
(result (rassoc-if #'oddp x :key #'1+))) |
211 |
(result (rassoc-if #'oddp x :key #'1+))) |
(and |
212 |
(and |
(check-scaffold-copy x xcopy) |
213 |
(check-scaffold-copy x xcopy) |
(eqt result (third x)) |
214 |
(eqt result (third x)) |
result)) |
|
result)) |
|
|
(program-error (c) c)) |
|
215 |
(c . 6)) |
(c . 6)) |
216 |
|
|
217 |
(deftest rassoc-if-3 |
(deftest rassoc-if-3 |
243 |
(c . 6)) |
(c . 6)) |
244 |
|
|
245 |
(deftest rassoc-if-not-2 |
(deftest rassoc-if-not-2 |
246 |
(handler-case |
(let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d)))) |
247 |
(let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d)))) |
(xcopy (make-scaffold-copy x)) |
248 |
(xcopy (make-scaffold-copy x)) |
(result (rassoc-if-not #'evenp x :key #'1+))) |
249 |
(result (rassoc-if-not #'evenp x :key #'1+))) |
(and |
250 |
(and |
(check-scaffold-copy x xcopy) |
251 |
(check-scaffold-copy x xcopy) |
(eqt result (third x)) |
252 |
(eqt result (third x)) |
result)) |
|
result)) |
|
|
(program-error (c) c)) |
|
253 |
(c . 6)) |
(c . 6)) |
254 |
|
|
255 |
(deftest rassoc-if-not-3 |
(deftest rassoc-if-not-3 |