在常见的lisp中，如何在抛出错误而未捕获的地方重新启动？

(restart-case body-form &rest clauses)

(defun divide (x y)
  (restart-case
      (if (zerop y)
          (error "Divide by zero error")
          (/ x y))
    (retry () :report "Retry division with new values."
           :interactive (lambda ()
                          (list (read-number "Enter new dividend: ")
                                (read-number "Enter new divisor: "))))
    (abort () :report "Abort division and return NIL."
           :interactive (lambda ()
                          (list nil)))))