166 |
(case 'a (b 'b) (otherwise)) |
(case 'a (b 'b) (otherwise)) |
167 |
nil) |
nil) |
168 |
|
|
169 |
|
;;; No implicit tagbody |
170 |
|
(deftest case.35 |
171 |
|
(block done |
172 |
|
(tagbody |
173 |
|
(case 'a (a (go 10) |
174 |
|
10 |
175 |
|
(return-from done 'bad))) |
176 |
|
10 |
177 |
|
(return-from done 'good))) |
178 |
|
good) |
179 |
|
|
180 |
|
(deftest case.36 |
181 |
|
(block done |
182 |
|
(tagbody |
183 |
|
(case 'b |
184 |
|
(a 'bad) |
185 |
|
(otherwise (go 10) |
186 |
|
10 |
187 |
|
(return-from done 'bad))) |
188 |
|
10 |
189 |
|
(return-from done 'good))) |
190 |
|
good) |
191 |
|
|
192 |
|
|
193 |
|
|
194 |
;;; (deftest case.error.1 |
;;; (deftest case.error.1 |
195 |
;;; (classify-error (case)) |
;;; (classify-error (case)) |
196 |
;;; program-error) |
;;; program-error) |