231 |
:test #'(lambda (a b) |
:test #'(lambda (a b) |
232 |
(<= (abs (- a b)) 1))))) |
(<= (abs (- a b)) 1))))) |
233 |
(and |
(and |
234 |
(not (eq result 'failed)) |
(not (eqt result 'failed)) |
235 |
(sort |
(sort |
236 |
(sublis |
(sublis |
237 |
'((2 . 1) (5 . 4) (11 . 10) (45 . 44) (102 . 101)) |
'((2 . 1) (5 . 4) (11 . 10) (45 . 44) (102 . 101)) |
251 |
(setf y (* y y)))) |
(setf y (* y y)))) |
252 |
(not (not |
(not (not |
253 |
(or |
(or |
254 |
(eq x y) ;; if bignums are eq, the test is worthless |
(eqt x y) ;; if bignums are eq, the test is worthless |
255 |
(eql (length |
(eql (length |
256 |
(union-with-check |
(union-with-check |
257 |
(list x) (list x))) |
(list x) (list x))) |