define method do-something()
   /* Do something. */
   if (failed?)
      cerror("inserted cable %s", "missing cable %s", "com1")
   end if;
   /* Problem corrected, move on. */
end method;

define method caller()
   block() 
      do-something()
   exception (e :: <simple-error>, init-arguments: #[#"format-string", "missing cable %s"])
      format-out("Plug in %s and press key\n", e.format-arguments);
      wait-for-keypress();
      signal(<simple-restart>, format-string: "inserted cable %s",
             format-arguments: e.format-arguments);
   end block;
end method;