<div class="gmail_quote">On Fri, Dec 2, 2011 at 1:11 PM, Eric Marsden <span dir="ltr"><<a href="mailto:eric.marsden@free.fr">eric.marsden@free.fr</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Hi,<br>
<br>
The following is ECL compiled from current git, on Linux/AMD64.<br>
<br>
,----<br>
| > (lisp-implementation-version)<br>
| "9.8.4"<br></blockquote><div><br></div><div>Obsolete.</div><div><br></div><div><div>> (lisp-implementation-version)</div><div><br></div><div>"11.1.1"</div><div>> (ctypecase :foo (integer 1) (keyword 2))</div>

<div><br></div><div>Condition of type: SIMPLE-PROGRAM-ERROR</div><div>In form</div><div>(SETF :FOO (SI::CTYPECASE-ERROR ':FOO #:G157 '(INTEGER KEYWORD)))</div><div>SETQ: Tried to assign a value to the constant :FOO.</div>

<div><br></div><div>Available restarts:</div><div><br></div><div>1. (RESTART-TOPLEVEL) Go back to Top-Level REPL.</div><div><br></div><div>Broken at SI:BYTECODES. [Evaluation of: (SI:TOP-LEVEL T)] In: #<process TOP-LEVEL>.</div>

</div><div><br></div></div><div><br></div>-- <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>