;; A function to establish a restart.

(call-with-simple-restart (lambda () 
                            (when (find-restart 'my-restart)
                              (invoke-restart 'my-restart)))
                          :name 'my-restart
                          :report "A message.")