/[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.5 by pfdietz, Wed Feb 19 00:58:38 2003 UTC revision 1.6 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 80  Line 80 
80    (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))
81    nil 2 1)    nil 2 1)
82    
83    ;;; Test that destructuring-bind does not have a tagbody
84    (deftest destructuring-bind.19
85      (block nil
86        (tagbody
87         (destructuring-bind (a . b) '(1 2) (go 10) 10 (return 'bad))
88         10
89         (return 'good)))
90      good)
91    
92    
93  ;;; Error cases  ;;; Error cases
94    
95  #|  #|

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

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