/[gcl]/gcl/ansi-tests/restart-case.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/restart-case.lsp

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

revision 1.3 by pfdietz, Sun Mar 23 13:11:38 2003 UTC revision 1.4 by pfdietz, Sun Mar 23 13:33:33 2003 UTC
# Line 249  Line 249 
249         (foo () 'good)))))         (foo () 'good)))))
250    good)    good)
251    
252    (deftest restart-case.31
253      (macrolet ((%m2 (&rest args) (cons 'error args)))
254        (macrolet ((%m (&rest args &environment env)
255                       (macroexpand (cons '%m2 args) env)))
256          (handler-bind
257           ((error #'(lambda (c2) (invoke-restart (find-restart 'foo c2)))))
258           (handler-bind
259            ((error #'(lambda (c) (declare (ignore c)) (error "Blah"))))
260            (restart-case
261             (restart-case
262              (%m "Boo!")
263              (foo () 'bad))
264             (foo () 'good))))))
265      good)
266    
267    
268    
269    

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

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