% Function RESTART-NAME
Function RESTART-NAME
restart-name restart => name
restart - restart
name - シンボル
restartの名前を返却しますが、
もしrestartが名前を持っていなかったときは、
nilが返却されます。
(restart-case
(loop for restart in (compute-restarts)
collect (restart-name restart))
(case1 () :report "Return 1." 1)
(nil () :report "Return 2." 2)
(case3 () :report "Return 3." 3)
(case1 () :report "Return 4." 4))
=> (CASE1 NIL CASE3 CASE1 ABORT)
;; 上記の例はABORTという名前のrestartを明に作成していませんが
;; しかし暗黙的にシステムによって提供されます。
なし。
なし。
なし。
compute-restarts,
find-restart
なし。