<div class="gmail_quote">On Tue, Jun 26, 2012 at 10:53 PM, Eric Marsden <span dir="ltr"><<a href="mailto:eric.marsden@free.fr" target="_blank">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">

ECL (Embeddable Common-Lisp) 12.5.1 (git:6e1c455e5207b3592125c52a7ec39fa353bc8a9d)<br>
<br>
> (lambda (p3)<br>
    (declare (optimize (speed 1) (safety 0) (debug 2) (space 0))<br>
             (type (eql 4432671931722342132) p3))<br>
    (if nil "W" p3))<br>
#<bytecompiled-function 0000000003c2f1e0><br>
> (funcall (compile nil *) 4432671931722342132)<br>
;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0<br>
;;;<br>
;;; End of Pass 1.<br>
7052856</blockquote><div><br></div><div>This has been fixed in CVS. Due to a misordering of IF conditions, ECL was using ecl_fixnum and not ecl_to_long() for coercing objects to long types (which is the C type that fits the number you passed). </div>

</div><div><br></div>Juanjo<br clear="all"><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">http://juanjose.garciaripoll.googlepages.com</a><br>