/[gcl]/gcl/ansi-tests/unwind-protect.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/unwind-protect.lsp

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

revision 1.1 by pfdietz, Sat Oct 12 21:03:42 2002 UTC revision 1.2 by pfdietz, Tue Mar 4 14:14:31 2003 UTC
# Line 88  Line 88 
88            (push 'a x)))            (push 'a x)))
89        (type-error () x)))        (type-error () x)))
90    (a))    (a))
91    
92    ;;; No implicit tagbody
93    (deftest unwind-protect.10
94      (block done
95        (tagbody
96         (unwind-protect
97             'foo
98           (go 10)
99           10
100           (return-from done 'bad))
101         10
102         (return-from done 'good)))
103      good)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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