/[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.10 by pfdietz, Sun May 4 13:37:08 2003 UTC revision 1.11 by pfdietz, Sun May 4 13:40:20 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) '(:a 2) (values x y))    (destructuring-bind (x y &key) '(1 2) (values x y))
105    :a 2)    1 2)
106    
107  (deftest destructuring-bind.23  (deftest destructuring-bind.23
108    (destructuring-bind (&rest x &key) '(:allow-other-keys 1) x)    (destructuring-bind (&rest x &key) '(:allow-other-keys 1) x)
109    (:allow-other-keys 1))    (:allow-other-keys 1))
110    
111    (deftest destructuring-bind.24
112      (destructuring-bind (&rest x &key) nil x)
113      nil)
114    
115  ;;; Error cases  ;;; Error cases
116    
117  #|  #|

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

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