250 |
((lambda (&key &allow-other-keys)) :a 1 :b 2 :c 3) |
((lambda (&key &allow-other-keys)) :a 1 :b 2 :c 3) |
251 |
nil) |
nil) |
252 |
|
|
253 |
|
;;; Free declaration scope |
254 |
|
|
255 |
|
(deftest lambda.52 |
256 |
|
(let ((x :bad)) |
257 |
|
(declare (special x)) |
258 |
|
(let ((x :good)) |
259 |
|
((lambda (&optional (y x)) (declare (special x)) y)))) |
260 |
|
:good) |
261 |
|
|
262 |
|
(deftest lambda.53 |
263 |
|
(let ((x :bad)) |
264 |
|
(declare (special x)) |
265 |
|
(let ((x :good)) |
266 |
|
((lambda (&key (y x)) (declare (special x)) y)))) |
267 |
|
:good) |
268 |
|
|
269 |
|
(deftest lambda.54 |
270 |
|
(let ((x :bad)) |
271 |
|
(declare (special x)) |
272 |
|
(let ((x :good)) |
273 |
|
((lambda (&aux (y x)) (declare (special x)) y)))) |
274 |
|
:good) |
275 |
|
|
276 |
;;; Tests of lambda as a macro |
;;; Tests of lambda as a macro |
277 |
|
|