anchor.diff:            (format t \"Invoking FOO again...~%\")
             (invoke-restart 'foo))))
   "
  -          
     (let ((case-gensyms (mapcar (lambda (case)
   				(declare (ignore case))
   				(gensym)) cases))
  
positive.code: 					  (setf ,restart-function #',function-name)
  					  (setf ,restart-function-args args)
  					  (go ,re-entry-label))))))))))
      
  
negative.code: (defpackage :recursive-restart
    (:use :common-lisp)
    (:export :recursive-restart-case
             :restart-bind*
             :restart-return
             :do-restart
             :handler-bind*
             :handler-return))
  
  (in-package :recursive-restart)
  
  