/[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.2 by pfdietz, Tue Mar 4 14:14:31 2003 UTC revision 1.3 by pfdietz, Mon Aug 18 13:20:50 2003 UTC
# Line 101  Line 101 
101       10       10
102       (return-from done 'good)))       (return-from done 'good)))
103    good)    good)
104    
105    ;;; Executes all forms of the implicit progn
106    (deftest unwind-protect.11
107      (let ((x nil) (y nil))
108        (values
109         (block nil
110           (unwind-protect (return 'a)
111             (setf y 'c)
112             (setf x 'b)))
113         x y))
114      a b c)
115    

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

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