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