156 |
t) |
t) |
157 |
|
|
158 |
;;; Test side effects, evaluation order in assignment to NTH |
;;; Test side effects, evaluation order in assignment to NTH |
159 |
(deftest nth.3 |
(deftest nth.order.1 |
160 |
(let ((i 0) |
(let ((i 0) |
161 |
(x (list 'a 'b 'c 'd)) |
(x (list 'a 'b 'c 'd)) |
162 |
y z) |
y z) |
168 |
x)) |
x)) |
169 |
(a z c d)) |
(a z c d)) |
170 |
|
|
171 |
(deftest nth.4 |
(deftest nth.order.2 |
172 |
(let ((i 0) x y (z '(a b c d e))) |
(let ((i 0) x y (z '(a b c d e))) |
173 |
(values |
(values |
174 |
(nth (progn (setf x (incf i)) 1) |
(nth (progn (setf x (incf i)) 1) |