I tried to reproduce what you are experiencing, without success

File: foo.lsp

(format t "~%Let's compute a bogus form: (COS 'A)~%")
(restart-case
    (funcall (intern "COS") 'a)
  (my-restart ()
      (format t "~%ABORTING!")
      (ext:quit)))
(ext:quit)

Build using
(c::build-program "program" :lisp-files (list (compile-file "foo" :system-p t)))

Execute and interact:
$ ./program

Let's compute a bogus form: (COS 'A)

In function COS, the value of the only argument is
  A
which is not of the expected type NUMBER
Available restarts:

1. (MY-RESTART) MY-RESTART

Top level in: #<process TOP-LEVEL>.
> :r1

ABORTING!

Juanjo

--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com