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
------------------------------------------------------------------------------
Special Offer-- Download ArcSight Logger for FREE (a $49 USD value)!
Finally, a world-class log management solution at an even better price-free!
Download using promo code Free_Logger_4_Dev2Dev. Offer expires
February 28th, so secure your free ArcSight Logger TODAY!
http://p.sf.net/sfu/arcsight-sfd2d
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
