/[gcl]/gcl/ansi-tests/destructuring-bind.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/destructuring-bind.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26