Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sun Mar 2 14:25:07 2003 UTC | revision 1.3 by pfdietz, Mon Mar 3 13:42:19 2003 UTC | |
---|---|---|
# | Line 109 | Line 109 |
109 | (deftest handler-bind.15 | (deftest handler-bind.15 |
110 | (catch 'done | (catch 'done |
111 | (handler-bind | (handler-bind |
112 | ((t #'(lambda (c) (declare (ignore c)) | ((nil #'(lambda (c) (declare (ignore c)) |
113 | (throw 'done 'good)))) | (throw 'done 'bad))) |
114 | (error #'(lambda (c) (declare (ignore c)) | |
115 | (throw 'done 'good)))) | |
116 | (error "an error"))) | (error "an error"))) |
117 | good) | good) |
118 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |