Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |