Повторна помилка в Emacs Lisp

Мені потрібно викликати функцію та виконати очищення лише у тому випадку, коли функція не працює, а потім повторно запустити помилку. Ось псевдо-код:

(condition-case err
    (call-function)
  (error
   (cleanup)
   ;; how do I raise `err`?
   ))

До речі, альтернативним варіантом може бути щось на зразок:

(let ((error t))
  (unwind-protect
      (prog1 (call-function)
        (setq error nil))
    (when error (cleanup))))

Перевага полягає в тому, що ви уникаєте лову та повторного скидання помилки, а це означає, що, наприклад, налагоджувач покаже вам правильний зворотний шлях (той, що відповідає фактичному джерелу помилки, а не той, що відповідає вам, повторно викидаючи чужу помилку ).

Ще одна відмінність полягає в тому, що cleanupбуде викликано не тільки помилка, але й якщо код буде перервано a C-gабо закликом до throw.

Ви шукаєте signal:

(condition-case err
    (call-function)
  (error
   (cleanup)
   (signal (car err) (cdr err)))) ; reraise `err'