Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Feb 17 13:25:22 2003 UTC | revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 34 | Line 34 |
34 | x)) | x)) |
35 | a 1) | a 1) |
36 | ||
37 | ;;; No implicit tagbody | |
38 | (deftest when.8 | |
39 | (block done | |
40 | (tagbody | |
41 | (when t | |
42 | (go 10) | |
43 | 10 | |
44 | (return-from done 'bad)) | |
45 | 10 | |
46 | (return-from done 'good))) | |
47 | good) | |
48 | ||
49 | ||
50 | ;;; (deftest when.error.1 | ;;; (deftest when.error.1 |
51 | ;;; (classify-error (when)) | ;;; (classify-error (when)) |
52 | ;;; program-error) | ;;; program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |