Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Tue Feb 18 02:28:10 2003 UTC | revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 51 | Line 51 |
51 | x y z)) | x y z)) |
52 | (1 2 0) nil nil 0) | (1 2 0) nil nil 0) |
53 | ||
54 | ;;; No implicit tagbody | |
55 | (deftest multiple-value-bind.8 | |
56 | (block nil | |
57 | (tagbody | |
58 | (multiple-value-bind (x) nil | |
59 | (go 10) | |
60 | 10 | |
61 | (return 'bad)) | |
62 | 10 | |
63 | (return 'good))) | |
64 | good) | |
65 | ||
66 | ;;; (deftest multiple-value-bind.error.1 | ;;; (deftest multiple-value-bind.error.1 |
67 | ;;; (classify-error (multiple-value-bind)) | ;;; (classify-error (multiple-value-bind)) |
68 | ;;; program-error) | ;;; program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |