Valery Pipin <pip@iszf.irk.ru> writes:
> This reminded me another issue from itensor package.
> There is annoying things with covariant indices written in low case.
> C2) load(itensor);
> (D2) /usr/share/maxima/5.9.0.1cvs/share/tensor/itensor.o
> (C3) show(t([i],[j]))$
> j
> (D3) t
> $i|
Does the following patch make things work as expected?
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ cut ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Index: itensor.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/tensor/itensor.lisp,v
retrieving revision 1.4
diff -u -r1.4 itensor.lisp
--- itensor.lisp 29 Jan 2003 21:06:33 -0000 1.4
+++ itensor.lisp 13 Oct 2003 15:40:38 -0000
@@ -678,7 +678,7 @@
(DEFUN SPLICE2 (X)
(COND ((FIXP X)(EXPLODE X))
- (T (CDR (EXPLODE X)))))
+ (T (CDR (EXPLODEc X)))))
(DEFUN DERIV (E)
(PROG (EXP Z COUNT V)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ cut ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Wolfgang