<div class="gmail_quote">On Sat, Feb 11, 2012 at 4:40 PM, Andrey G. Grozin <span dir="ltr"><<a href="mailto:A.G.Grozin@inp.nsk.su">A.G.Grozin@inp.nsk.su</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

Recently, there was a thread about building maxima with ecl-12.2.1. I<br>
understand that the short-term solution is to patch<br>
src/numerical/slatec/xerprn.lisp. </blockquote><div><br></div><div>This solves it, IIRC</div><div><br></div><div><div>diff --git a/src/numerical/slatec/xerprn.lisp b/src/numerical/slatec/xerprn.lisp</div><div>index 8068351..d1a0ffd 100644</div>

<div>--- a/src/numerical/slatec/xerprn.lisp</div><div>+++ b/src/numerical/slatec/xerprn.lisp</div><div>@@ -18,7 +18,7 @@</div><div> </div><div> </div><div> (let* ((newlin "$$"))</div><div>-  (declare (type (simple-array character (2)) newlin) (ignorable newlin))</div>

<div>+  (declare (ignorable newlin))</div><div>   (defun xerprn (prefix npref messg nwrap)</div><div>     (declare (type (f2cl-lib:integer4) nwrap npref)</div><div>              (type (simple-array character (*)) messg prefix))</div>

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