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

Diff of /gcl/ansi-tests/multiple-value-bind.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Tue Feb 18 02:28:10 2003 UTC revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 51  Line 51 
51       x y z))       x y z))
52    (1 2 0) nil nil 0)    (1 2 0) nil nil 0)
53    
54    ;;; No implicit tagbody
55    (deftest multiple-value-bind.8
56      (block nil
57        (tagbody
58         (multiple-value-bind (x) nil
59           (go 10)
60           10
61           (return 'bad))
62         10
63         (return 'good)))
64      good)
65    
66  ;;; (deftest multiple-value-bind.error.1  ;;; (deftest multiple-value-bind.error.1
67  ;;;  (classify-error (multiple-value-bind))  ;;;  (classify-error (multiple-value-bind))
68  ;;;  program-error)  ;;;  program-error)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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