100 |
count (eqt c1 c2))))) |
count (eqt c1 c2))))) |
101 |
0) |
0) |
102 |
|
|
103 |
(deftest ldiff.9 |
(deftest ldiff.order.1 |
104 |
(let ((i 0) x y) |
(let ((i 0) x y) |
105 |
(values |
(values |
106 |
(ldiff (progn (setf x (incf i)) |
(ldiff (progn (setf x (incf i)) |
108 |
(progn (setf y (incf i)) |
(progn (setf y (incf i)) |
109 |
'd)) |
'd)) |
110 |
i x y)) |
i x y)) |
111 |
(a b c) 2 1 2) |
(a b c) 2 1 2) |
112 |
|
|
113 |
;; Error checking |
;; Error checking |
114 |
|
|
182 |
t)) |
t)) |
183 |
t) |
t) |
184 |
|
|
|
|
|
185 |
;; The next four tests test that tailp handles dotted lists. See |
;; The next four tests test that tailp handles dotted lists. See |
186 |
;; TAILP-NIL:T in the X3J13 documentation. |
;; TAILP-NIL:T in the X3J13 documentation. |
187 |
|
|
250 |
0) |
0) |
251 |
|# |
|# |
252 |
|
|
253 |
(deftest tailp.8 |
(deftest tailp.order.1 |
254 |
(let ((i 0) x y) |
(let ((i 0) x y) |
255 |
(values |
(values |
256 |
(notnot |
(notnot |