Parent Directory | Revision Log | Patch
revision 1.21 by pfdietz, Sat May 14 12:16:28 2005 UTC | revision 1.22 by pfdietz, Sat Jun 25 01:23:01 2005 UTC | |
---|---|---|
# | Line 24 | Line 24 |
24 | ;;; the local function declaration | ;;; the local function declaration |
25 | (deftest flet.4 | (deftest flet.4 |
26 | (block %f | (block %f |
27 | (flet ((%f (&optional (x (return-from %f 10))) | (flet ((%f (&optional (x (return-from %f :good))) |
28 | 20)) | nil)) |
29 | (%f))) | (%f) |
30 | 10) | :bad)) |
31 | :good) | |
32 | ||
33 | (deftest flet.5 | (deftest flet.5 |
34 | (flet ((%f () (return-from %f 15) 35)) | (flet ((%f () (return-from %f 15) 35)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |