/[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.6 by pfdietz, Mon Mar 24 03:13:52 2003 UTC revision 1.7 by pfdietz, Sat Jan 8 15:50:32 2005 UTC
# Line 298  Line 298 
298     (nil () :report (lambda (s) (format s "Anonymous restart"))  10))     (nil () :report (lambda (s) (format s "Anonymous restart"))  10))
299    (foo bar foo nil))    (foo bar foo nil))
300    
301    (deftest restart-case.36
302      (let ((x :bad))
303        (declare (special x))
304        (let ((x :good))
305          (restart-case
306           (invoke-restart 'foo)
307           (foo (&aux (y x))
308                (declare (special x))
309                y))))
310      :good)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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