44 |
(deftest rest-set-1 |
(deftest rest-set-1 |
45 |
(let ((x (list 'a 'b 'c))) |
(let ((x (list 'a 'b 'c))) |
46 |
(and |
(and |
47 |
(eq (setf (rest x) 'd) 'd) |
(eqt (setf (rest x) 'd) 'd) |
48 |
x)) |
x)) |
49 |
(a . d)) |
(a . d)) |
50 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
110 |
(loop |
(loop |
111 |
for e in x |
for e in x |
112 |
and i from 0 |
and i from 0 |
113 |
count (not (eq e (nth i x))))) |
count (not (eqt e (nth i x))))) |
114 |
|
|
115 |
(deftest nth-1 |
(deftest nth-1 |
116 |
(nth-1-body (loop for i from 1 to 2000 collect (* 4 i))) |
(nth-1-body (loop for i from 1 to 2000 collect (* 4 i))) |