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