<div dir="ltr">Got it.  Indeed, it works fine.<br><br>In my lisp code this message implies a conceptual or programming error.  So, I always try eliminate it.  Thus the knee-jerk reaction.<br><br>I am also wondering: here do I ship the beer (or whatever) :-)  This package is sooo useful<br>
<br>Thanks,<br><br>Mirko<br><div class="gmail_quote">On Tue, Aug 5, 2008 at 9:21 PM, Liam Healy <<a href="mailto:liam@healy.washington.dc.us" target="_blank">liam@healy.washington.dc.us</a>> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">If that's all you got, nothing is wrong.  Notes are not errors and not<br>
even warnings,<br>
they are just that, notes.  Did you try to run it?  Please see the SBCL docs for<br>
an explanation of notes.<br>
<div><div></div><div><br>
On Tue, Aug 5, 2008 at 1:29 PM, Mirko Vukovic <<a href="mailto:mirko.vukovic@gmail.com" target="_blank">mirko.vukovic@gmail.com</a>> wrote:<br>
> Hello Liam (& others)<br>
><br>
> I am using SBCL 1.014 and GSL with a timestamp from march of this year.<br>
><br>
> I am trying to use the lu.lisp library and cannot compile the invert-matrix<br>
> example.  The error message is "deleting unreachable code" at the (letm.<br>
> If I comment out the calls to lu-... and (data-inv) and do instead (data<br>
> mmat), then it will compile.<br>
><br>
> I am including the transcript at the end of this message.<br>
><br>
> Any clue as to what could be wrong?<br>
><br>
> Thanks,<br>
><br>
> Mirko<br>
><br>
><br>
> CL-USER> (in-package :gsl)<br>
> #<PACKAGE "GSLL"><br>
> GSL> (defun invert-matrix (mat)<br>
>   "Invert the matrix."<br>
>   (letm ((mmat (matrix-double-float mat))<br>
>      (dim (array-dimension mat 0))<br>
>      (per (permutation dim))<br>
>      (inv (matrix-double-float dim dim)))<br>
>     (lu-decomp mmat per)<br>
>     (lu-invert mmat per inv)<br>
>     (data inv)))<br>
> ; in: LAMBDA NIL<br>
> ;     (GSLL:LETM<br>
> ;    ((GSLL::MMAT (GSLL:MATRIX-DOUBLE-FLOAT GSLL::MAT))<br>
> ;     (GSLL::DIM (ARRAY-DIMENSION GSLL::MAT 0))<br>
> ;     (GSLL::PER (GSLL:PERMUTATION GSLL::DIM))<br>
> ;     (GSLL::INV (GSLL:MATRIX-DOUBLE-FLOAT GSLL::DIM GSLL::DIM)))<br>
> ;    (GSLL:LU-DECOMP GSLL::MMAT GSLL::PER)<br>
> ;    (GSLL:LU-INVERT GSLL::MMAT GSLL::PER GSLL::INV) (GSLL:DATA GSLL::INV))<br>
> ; --> LET* UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND<br>
> ; --> MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN<br>
> ; --> UNLESS COND IF PROGN SETF LET*<br>
> ; ==><br>
> ;   GSLL::PER<br>
> ;<br>
> ; note: deleting unreachable code<br>
><br>
> ; ==><br>
> ;   GSLL::INV<br>
> ;<br>
> ; note: deleting unreachable code<br>
> ;<br>
> ; compilation unit finished<br>
> ;   printed 2 notes<br>
> STYLE-WARNING: redefining INVERT-MATRIX in DEFUN<br>
> INVERT-MATRIX<br>
><br>
</div></div>> _______________________________________________<br>
> Gsll-devel mailing list<br>
> <a href="mailto:Gsll-devel@common-lisp.net" target="_blank">Gsll-devel@common-lisp.net</a><br>
> <a href="http://common-lisp.net/cgi-bin/mailman/listinfo/gsll-devel" target="_blank">http://common-lisp.net/cgi-bin/mailman/listinfo/gsll-devel</a><br>
><br>
><br>
</blockquote></div><br></div>