/[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.13 by pfdietz, Sat Jan 8 13:35:39 2005 UTC revision 1.14 by pfdietz, Sun Jun 26 00:15:41 2005 UTC
# Line 33  Line 33 
33    a b w nil)    a b w nil)
34    
35  (deftest destructuring-bind.7  (deftest destructuring-bind.7
36    (destructuring-bind (x y &optional (z 'w z-p)) '(a b c) (values x y z z-p))    (destructuring-bind (x y &optional (z 'w z-p)) '(a b c) (values x y z (notnot z-p)))
37    a b c t)    a b c t)
38    
39    (deftest destructuring-bind.7a
40      (destructuring-bind (x y &optional (z x z-p)) '(a b) (values x y z z-p))
41      a b a nil)
42    
43  (deftest destructuring-bind.8  (deftest destructuring-bind.8
44    (destructuring-bind (x y &optional z w) '(a b c) (values x y z w))    (destructuring-bind (x y &optional z w) '(a b c) (values x y z w))
45    a b c nil)    a b c nil)
# Line 56  Line 60 
60    (destructuring-bind (x y &body z) '(a b c d) (values x y z))    (destructuring-bind (x y &body z) '(a b c d) (values x y z))
61    a b (c d))    a b (c d))
62    
63    (deftest destructuring-bind.12a
64      (destructuring-bind ((x y &body z)) '((a b c d)) (values x y z))
65      a b (c d))
66    
67  (deftest destructuring-bind.13  (deftest destructuring-bind.13
68    (destructuring-bind (&whole x y z) '(a b) (values x y z))    (destructuring-bind (&whole x y z) '(a b) (values x y z))
69    (a b) a b)    (a b) a b)
# Line 76  Line 84 
84    (destructuring-bind (&key a b c) '(:c 1) (values a b c))    (destructuring-bind (&key a b c) '(:c 1) (values a b c))
85    nil nil 1)    nil nil 1)
86    
87    (deftest destructuring-bind.17a
88      (destructuring-bind (&key (a 'foo) (b 'bar) c) '(:c 1) (values a b c))
89      foo bar 1)
90    
91    (deftest destructuring-bind.17c
92      (destructuring-bind (&key (a 'foo a-p) (b a b-p) (c 'zzz c-p)) '(:c 1)
93        (values a b c a-p b-p (notnot c-p)))
94      foo foo 1 nil nil t)
95    
96  (deftest destructuring-bind.18  (deftest destructuring-bind.18
97    (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))
98    nil 2 1)    nil 2 1)
# Line 136  Line 153 
153      (declare))      (declare))
154    nil)    nil)
155    
156    (deftest destructuring-bind.29
157      (destructuring-bind (x &aux y) '(:foo) (values x y))
158      :foo nil)
159      
160    (deftest destructuring-bind.30
161      (destructuring-bind (x &aux (y (list x))) '(:foo) (values x y))
162      :foo (:foo))
163    
164  ;;; Error cases  ;;; Error cases
165    
166  #|  #|

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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