restart-name (restart-name restart) find-restart や compute-restarts で得たリスタートオブジェクトの名前(シンボルまたはキーワード)を返します。 Run(restart-case (restart-name (find-restart :reconnect)) (:reconnect () nil)) ; => :RECONNECT