Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Wed Feb 19 00:58:38 2003 UTC | revision 1.6 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 80 | Line 80 |
80 | (destructuring-bind ((&key a b c)) '((:c 1 :b 2)) (values a b c)) | (destructuring-bind ((&key a b c)) '((:c 1 :b 2)) (values a b c)) |
81 | nil 2 1) | nil 2 1) |
82 | ||
83 | ;;; Test that destructuring-bind does not have a tagbody | |
84 | (deftest destructuring-bind.19 | |
85 | (block nil | |
86 | (tagbody | |
87 | (destructuring-bind (a . b) '(1 2) (go 10) 10 (return 'bad)) | |
88 | 10 | |
89 | (return 'good))) | |
90 | good) | |
91 | ||
92 | ||
93 | ;;; Error cases | ;;; Error cases |
94 | ||
95 | #| | #| |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |