/[gcl]/gcl/ansi-tests/handler-bind.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/handler-bind.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

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