206 |
(values |
(values |
207 |
(rassoc (progn (setf x (incf i)) 'c) |
(rassoc (progn (setf x (incf i)) 'c) |
208 |
(progn (setf y (incf i)) '((1 . a) (2 . b) (3 . c) (4 . c))) |
(progn (setf y (incf i)) '((1 . a) (2 . b) (3 . c) (4 . c))) |
209 |
:test (progn (setf z (incf i)) #'eq)) |
:test (progn (setf z (incf i)) #'eql)) |
210 |
i x y z)) |
i x y z)) |
211 |
(3 . c) 3 1 2 3) |
(3 . c) 3 1 2 3) |
212 |
|
|
215 |
(values |
(values |
216 |
(rassoc (progn (setf x (incf i)) 'c) |
(rassoc (progn (setf x (incf i)) 'c) |
217 |
(progn (setf y (incf i)) '((1 . a) (2 . b) (3 . c) (4 . c))) |
(progn (setf y (incf i)) '((1 . a) (2 . b) (3 . c) (4 . c))) |
218 |
:test #'eq) |
:test #'eql) |
219 |
i x y)) |
i x y)) |
220 |
(3 . c) 2 1 2) |
(3 . c) 2 1 2) |
221 |
|
|