/[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.9 by pfdietz, Sun May 4 12:34:11 2003 UTC revision 1.10 by pfdietz, Sun May 4 13:37:08 2003 UTC
# Line 101  Line 101 
101    1 2 3)    1 2 3)
102    
103  (deftest destructuring-bind.22  (deftest destructuring-bind.22
104    (destructuring-bind (x y &key) '(1 2) (values x y))    (destructuring-bind (x y &key) '(:a 2) (values x y))
105    1 2)    :a 2)
106    
107  (deftest destructuring-bind.23  (deftest destructuring-bind.23
108    (destructuring-bind (&rest x &key) '(1) x)    (destructuring-bind (&rest x &key) '(:allow-other-keys 1) x)
109    (1))    (:allow-other-keys 1))
110    
111  ;;; Error cases  ;;; Error cases
112    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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