Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Fri Jul 1 03:32:03 2005 UTC | revision 1.8 by pfdietz, Fri Jul 1 11:26:50 2005 UTC | |
---|---|---|
# | Line 336 | Line 336 |
336 | nil)))) | nil)))) |
337 | :good) | :good) |
338 | ||
339 | (deftest lambda.64 | |
340 | (let ((x :bad)) | |
341 | (declare (special x)) | |
342 | (flet ((%f () x)) | |
343 | ((lambda (x &aux (y (%f))) | |
344 | (declare (type t y) (special x)) | |
345 | y) | |
346 | :good))) | |
347 | :good) | |
348 | ||
349 | ;;; Tests of lambda as a macro | ;;; Tests of lambda as a macro |
350 | ||
351 | (deftest lambda.macro.1 | (deftest lambda.macro.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |