Parent Directory | Revision Log | Patch
revision 1.17 by pfdietz, Sat May 15 18:52:08 2004 UTC | revision 1.18 by pfdietz, Sat Jan 8 02:41:29 2005 UTC | |
---|---|---|
# | Line 455 | Line 455 |
455 | (signals-error | (signals-error |
456 | (flet ((%f (&key) :bad)) (%f nil nil)) | (flet ((%f (&key) :bad)) (%f nil nil)) |
457 | program-error) | program-error) |
t) | ||
458 | t) | |
459 | ||
460 | ;;; Free declarations do not affect argument forms | |
461 | ||
462 | (deftest flet.62 | |
463 | (let ((x :bad)) | |
464 | (declare (special x)) | |
465 | (let ((x :good)) | |
466 | (flet ((%f (&optional (y x)) | |
467 | (declare (special x)) | |
468 | y)) | |
469 | (%f)))) | |
470 | :good) | |
471 | ||
472 | (deftest flet.63 | |
473 | (let ((x :bad)) | |
474 | (declare (special x)) | |
475 | (let ((x :good)) | |
476 | (flet ((%f (&key (y x)) | |
477 | (declare (special x)) | |
478 | y)) | |
479 | (%f)))) | |
480 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |