293 |
(1 2 (:foo a :bar b) a b) |
(1 2 (:foo a :bar b) a b) |
294 |
(1 2 (:bar b :foo a) a b)) |
(1 2 (:bar b :foo a) a b)) |
295 |
|
|
296 |
|
;;; Binding of formal parameters that are also special variables |
297 |
|
(deftest flet.35 |
298 |
|
(let ((x 'bad)) |
299 |
|
(declare (special x)) |
300 |
|
(flet ((%f () x)) |
301 |
|
(flet ((%g (x) |
302 |
|
(declare (special x)) |
303 |
|
(%f))) |
304 |
|
(%g 'good)))) |
305 |
|
good) |
306 |
|
|
307 |
|
(deftest flet.36 |
308 |
|
(let ((x 'bad)) |
309 |
|
(declare (special x)) |
310 |
|
(flet ((%f () x)) |
311 |
|
(flet ((%g (&aux (x 'good)) |
312 |
|
(declare (special x)) |
313 |
|
(%f))) |
314 |
|
(%g)))) |
315 |
|
good) |
316 |
|
|
317 |
|
(deftest flet.37 |
318 |
|
(let ((x 'bad)) |
319 |
|
(declare (special x)) |
320 |
|
(flet ((%f () x)) |
321 |
|
(flet ((%g (&rest x) |
322 |
|
(declare (special x)) |
323 |
|
(%f))) |
324 |
|
(%g 'good)))) |
325 |
|
(good)) |
326 |
|
|
327 |
|
(deftest flet.38 |
328 |
|
(let ((x 'bad)) |
329 |
|
(declare (special x)) |
330 |
|
(flet ((%f () x)) |
331 |
|
(flet ((%g (&key (x 'good)) |
332 |
|
(declare (special x)) |
333 |
|
(%f))) |
334 |
|
(%g)))) |
335 |
|
good) |
336 |
|
|
337 |
|
(deftest flet.39 |
338 |
|
(let ((x 'bad)) |
339 |
|
(declare (special x)) |
340 |
|
(flet ((%f () x)) |
341 |
|
(flet ((%g (&key (x 'bad)) |
342 |
|
(declare (special x)) |
343 |
|
(%f))) |
344 |
|
(%g :x 'good)))) |
345 |
|
good) |
346 |
|
|
347 |
|
(deftest flet.40 |
348 |
|
(let ((x 'good)) |
349 |
|
(declare (special x)) |
350 |
|
(flet ((%f () x)) |
351 |
|
(flet ((%g (&key (x 'bad)) |
352 |
|
(%f))) |
353 |
|
(%g :x 'worse)))) |
354 |
|
good) |
355 |
|
|
356 |
|
|