24 |
(deftest elt-5a (safe-elt '(a b c d e) -4) type-error) |
(deftest elt-5a (safe-elt '(a b c d e) -4) type-error) |
25 |
(deftest elt-6 |
(deftest elt-6 |
26 |
(let ((x (make-int-list 1000))) |
(let ((x (make-int-list 1000))) |
27 |
(not (not |
(notnot |
28 |
(every |
(every |
29 |
#'(lambda (i) |
#'(lambda (i) |
30 |
(eql i (safe-elt x i))) |
(eql i (safe-elt x i))) |
31 |
x)))) |
x))) |
32 |
t) |
t) |
33 |
|
|
34 |
(deftest elt-7 |
(deftest elt-7 |
61 |
(let ((x (list 'a 'b 'c 'd 'e))) |
(let ((x (list 'a 'b 'c 'd 'e))) |
62 |
(let ((y (loop for c on x collect c))) |
(let ((y (loop for c on x collect c))) |
63 |
(setf (elt x 2) 'f) |
(setf (elt x 2) 'f) |
64 |
(not |
(notnot |
65 |
(not |
(every #'eq |
66 |
(every #'eq |
y |
67 |
y |
(loop for c on x collect c))))) |
|
(loop for c on x collect c)))))) |
|
68 |
t) |
t) |
69 |
|
|
70 |
(deftest elt-12 |
(deftest elt-12 |