61211 |Agent 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; 3420660728 #dylan TRUE