Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 12 17:42:32 2002 UTC | revision 1.2 by pfdietz, Sat Oct 12 18:44:42 2002 UTC | |
---|---|---|
# | Line 38 | Line 38 |
38 | 'bad) | 'bad) |
39 | good) | good) |
40 | ||
41 | (deftest block.6 | |
42 | (block b1 | |
43 | (return-from b1 (values)) | |
44 | 1)) | |
45 | ||
46 | (deftest block.7 | |
47 | (block b1 | |
48 | (return-from b1 (values 1 2 3 4)) | |
49 | 1) | |
50 | 1 2 3 4) | |
51 | ||
52 | (deftest block.8 | |
53 | (block foo) | |
54 | nil) | |
55 | ||
56 | (deftest block.9 | |
57 | (block foo (values 'a 'b) (values 'c 'd)) | |
58 | c d) | |
59 | ||
60 | (deftest block.10 | |
61 | (block done | |
62 | (flet ((%f (x) (return-from done x))) | |
63 | (block done (mapcar #'%f '(good bad bad)))) | |
64 | 'bad) | |
65 | good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |