itensor fails to load with sbcl



Just in case, it works for 
[va at trinity talk]$ rmaxima
Maxima 5.21.0 http://maxima.sourceforge.net
using Lisp SBCL 1.0.35-3.fc12
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) build_info();

Maxima version: 5.21.0
Maxima build date: 12:23 4/24/2010
Host type: x86_64-unknown-linux-gnu
Lisp implementation type: SBCL
Lisp implementation version: 1.0.35-3.fc12

(%o1) 
(%i2) load(itensor);
STYLE-WARNING: redefining $NAME in DEFUN
STYLE-WARNING: redefining DERIV in DEFUN
STYLE-WARNING: redefining SDIFF in DEFUN
STYLE-WARNING: redefining $DECSYM in DEFUN
STYLE-WARNING: redefining $CANFORM in DEFUN
(%o2)         /usr/share/maxima/5.21.0/share/tensor/itensor.lisp
(%i3) 
On Tuesday 27 of April 2010 05:18:35 Dieter Kaiser wrote:
> With the current cvs version I get a failure when loading itensor. The
> following is the output:
> 
> 
> (%i1) load(itensor);
> STYLE-WARNING: redefining $NAME in DEFUN
> STYLE-WARNING: redefining DERIV in DEFUN
> STYLE-WARNING: redefining SDIFF in DEFUN
> STYLE-WARNING: redefining I-$DEPENDENCIES in DEFUN
> ; in: LAMBDA NIL
> ;     (MAXIMA::INTERVAL 1 MAXIMA::NCOV)
> ;
> ; caught STYLE-WARNING:
> ;   The function was called with two arguments, but wants exactly three.
> 
> ;     (MAXIMA::INTERVAL 1 MAXIMA::NCONTR)
> ;
> ; caught STYLE-WARNING:
> ;   The function was called with two arguments, but wants exactly three.
> STYLE-WARNING: redefining $DECSYM in DEFUN
> STYLE-WARNING: redefining $CANFORM in DEFUN
> ;
> ; compilation unit aborted
> ;   caught 1 fatal ERROR condition
> ;   caught 2 STYLE-WARNING conditions
> 
> Load failed
> for /usr/local/share/maxima/5.20post/share/tensor/itensor.lisp
>  -- an error. To debug this try: debugmode(true);
> 
> Dieter Kaiser
> 
> _______________________________________________
> Maxima mailing list
> Maxima at math.utexas.edu
> http://www.math.utexas.edu/mailman/listinfo/maxima