131 |
(push #'(lambda () i) x)))) |
(push #'(lambda () i) x)))) |
132 |
(5 5 5 5 5)) |
(5 5 5 5 5)) |
133 |
|
|
134 |
|
(def-macro-test do.error.1 |
135 |
|
(do ((i 0 (1+ i))) ((= i 5) 'a))) |
136 |
|
|
137 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
138 |
|
|
139 |
;;;; Tests of DO* |
;;;; Tests of DO* |
253 |
(push #'(lambda () i) x)))) |
(push #'(lambda () i) x)))) |
254 |
(5 5 5 5 5)) |
(5 5 5 5 5)) |
255 |
|
|
256 |
|
(def-macro-test do*.error.1 |
257 |
|
(do* ((i 0 (1+ i))) ((= i 5) 'a))) |
258 |
|
|
259 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
260 |
|
|
261 |
;;;; Tests for DOLIST |
;;;; Tests for DOLIST |
367 |
(when (eq e 'c) (return x)))) |
(when (eq e 'c) (return x)))) |
368 |
(c b a)) |
(c b a)) |
369 |
|
|
370 |
|
(def-macro-test dolist.error.1 |
371 |
|
(dolist (x nil))) |
372 |
|
|
373 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
374 |
|
|
375 |
;;; Tests for DOTIMES |
;;; Tests for DOTIMES |
500 |
y) |
y) |
501 |
(3 2 1 0)) |
(3 2 1 0)) |
502 |
|
|
503 |
|
(def-macro-test dotimes.error.1 |
504 |
|
(dotimes (i 10))) |
505 |
|
|
506 |
|
|
507 |
|
|