391 |
nil) |
nil) |
392 |
|
|
393 |
(deftest dotimes.6 |
(deftest dotimes.6 |
394 |
(let ((x nil)) |
(block done |
395 |
(dotimes (i -1 x) (push i x))) |
(dotimes (i -1 'good) |
396 |
nil) |
(return-from done 'bad))) |
397 |
|
good) |
398 |
|
|
399 |
(deftest dotimes.7 |
(deftest dotimes.7 |
400 |
(let ((x nil)) |
(block done |
401 |
(dotimes (i (1- most-negative-fixnum) x) (push i x))) |
(dotimes (i (1- most-negative-fixnum) 'good) |
402 |
nil) |
(return-from done 'bad))) |
403 |
|
good) |
404 |
|
|
405 |
;;; Implicit nil block has the right scope |
;;; Implicit nil block has the right scope |
406 |
(deftest dotimes.8 |
(deftest dotimes.8 |