119 |
(return-from done 'good))) |
(return-from done 'good))) |
120 |
good) |
good) |
121 |
|
|
122 |
|
;;; Check that free declarations do not apply to the init forms |
123 |
|
|
124 |
|
(deftest let.17 |
125 |
|
(let ((x :bad)) |
126 |
|
(declare (special x)) |
127 |
|
(let ((x :good)) ;; lexical binding |
128 |
|
(let ((y x)) |
129 |
|
(declare (special x)) ;; free declaration |
130 |
|
y))) |
131 |
|
:good) |
132 |
|
|
133 |
;;; Tests for LET* |
;;; Tests for LET* |
134 |
|
|
237 |
10 |
10 |
238 |
(return-from done 'good))) |
(return-from done 'good))) |
239 |
good) |
good) |
240 |
|
|
241 |
|
;;; Check that free declarations do not apply to the init forms |
242 |
|
|
243 |
|
(deftest let*.17 |
244 |
|
(let ((x :bad)) |
245 |
|
(declare (special x)) |
246 |
|
(let ((x :good)) ;; lexical binding |
247 |
|
(let* ((y x)) |
248 |
|
(declare (special x)) ;; free declaration |
249 |
|
y))) |
250 |
|
:good) |
251 |
|
|