227 |
(let (x) (setq x (values 1 2))) |
(let (x) (setq x (values 1 2))) |
228 |
1) |
1) |
229 |
|
|
230 |
|
(deftest setq.5 |
231 |
|
(let ((*x* 0)) |
232 |
|
(declare (special *x*)) |
233 |
|
(values *x* (setq *x* 1) *x*)) |
234 |
|
0 1 1) |
235 |
|
|
236 |
|
(deftest setq.6 |
237 |
|
(let ((*x* 0)) |
238 |
|
(declare (special *x*)) |
239 |
|
(setq *x* 1)) |
240 |
|
1) |
241 |
|
|
242 |
|
|
243 |
(deftest setf.1 |
(deftest setf.1 |
244 |
(setf) |
(setf) |
245 |
nil) |
nil) |
257 |
(deftest setf.4 |
(deftest setf.4 |
258 |
(let (x) (setf x (values 1 2))) |
(let (x) (setf x (values 1 2))) |
259 |
1) |
1) |
260 |
|
|
261 |
|
(deftest setf.5 |
262 |
|
(let ((*x* 0)) |
263 |
|
(declare (special *x*)) |
264 |
|
(values *x* (setf *x* 1) *x*)) |
265 |
|
0 1 1) |
266 |
|
|
267 |
|
(deftest setf.6 |
268 |
|
(let ((*x* 0)) |
269 |
|
(declare (special *x*)) |
270 |
|
(setf *x* 1)) |
271 |
|
1) |