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

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

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

revision 1.3 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 69  Line 69 
69          (return-from foo 'a)))          (return-from foo 'a)))
70       x y))       x y))
71    a 1 2)    a 1 2)
72    
73    ;;; No implicit tagbody
74    (deftest multiple-value-prog1.10
75      (block nil
76        (tagbody
77         (multiple-value-prog1
78          (values)
79          (go 10)
80          10
81          (return 'bad))
82         10
83         (return 'good)))
84      good)
85    

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