Existe-t-il une commande pour ranger les parenthèses de fin?

Lors de l'édition de code lisp, je me retrouve souvent avec des parenthèses de fin dispersées autour (en supposant que |c'est le point):

(defun example-function ()
  (let ((x (+ 1 1)))
    (when x
      (message x)|
      )
    ))

Existe-t-il des commandes pratiques pour résoudre ce problème? Soit dans le noyau Emacs, paredit / smartparens ou d'autres packages?

Je sais que je peux appuyer )et paredit-close-roundcorriger la parenthèse suivante, mais je veux les corriger tous en une seule commande.

i( lispy-tab) de lispy fait exactement cela. Ci-dessous, une capture d'écran d'une visualisation de test ERT (en utilisant xv( lispy-view-test)).