Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | revision 1.7 by pfdietz, Sat Apr 19 18:17:51 2003 UTC | |
---|---|---|
# | Line 89 | Line 89 |
89 | (return 'good))) | (return 'good))) |
90 | good) | good) |
91 | ||
92 | (deftest destructuring-bind.20 | |
93 | (destructuring-bind (&whole (a . b) c . d) '(1 . 2) (list a b c d)) | |
94 | (1 2 1 2)) | |
95 | ||
96 | (deftest destructuring-bind.21 | |
97 | (destructuring-bind | |
98 | (x &rest (y z)) | |
99 | '(1 2 3) | |
100 | (values x y z)) | |
101 | 1 2 3) | |
102 | ||
103 | ||
104 | ;;; Error cases | ;;; Error cases |
105 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |