I tried to reproduce what you are experiencing, without success<br><br>File: foo.lsp<br><br>(format t "~%Let's compute a bogus form: (COS 'A)~%")<br>(restart-case<br>    (funcall (intern "COS") 'a)<br>

  (my-restart ()<br>      (format t "~%ABORTING!")<br>      (ext:quit)))<br>(ext:quit)<br><br>Build using<br>(c::build-program "program" :lisp-files (list (compile-file "foo" :system-p t)))<br>

<br>Execute and interact:<br>$ ./program <br><br>Let's compute a bogus form: (COS 'A)<br><br>In function COS, the value of the only argument is<br>  A<br>which is not of the expected type NUMBER<br>Available restarts:<br>

<br>1. (MY-RESTART) MY-RESTART<br><br>Top level in: #<process TOP-LEVEL>.<br>> :r1<br><br>ABORTING!<br><br>Juanjo<br><br>-- <br>Instituto de Física Fundamental, CSIC<br>c/ Serrano, 113b, Madrid 28006 (Spain) <br>

<a href="http://juanjose.garciaripoll.googlepages.com" target="_blank">http://juanjose.garciaripoll.googlepages.com</a><br>