110 |
collect s) |
collect s) |
111 |
nil) |
nil) |
112 |
|
|
113 |
|
;;; Check that LET does not have a tagbody |
114 |
|
(deftest let.16 |
115 |
|
(block done |
116 |
|
(tagbody |
117 |
|
(let () (go 10) 10 (return-from done 'bad)) |
118 |
|
10 |
119 |
|
(return-from done 'good))) |
120 |
|
good) |
121 |
|
|
122 |
|
|
123 |
;;; Tests for LET* |
;;; Tests for LET* |
124 |
|
|
125 |
(deftest let*.1 |
(deftest let*.1 |
218 |
unless (eql (eval form) 17) |
unless (eql (eval form) 17) |
219 |
collect s) |
collect s) |
220 |
nil) |
nil) |
221 |
|
|
222 |
|
;;; Check that LET* does not have a tagbody |
223 |
|
(deftest let*.16 |
224 |
|
(block done |
225 |
|
(tagbody |
226 |
|
(let () (go 10) 10 (return-from done 'bad)) |
227 |
|
10 |
228 |
|
(return-from done 'good))) |
229 |
|
good) |