From: Robert D. <rob...@us...> - 2008-02-17 01:42:53
|
Update of /cvsroot/maxima/maxima/share/tensor In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv29841/share/tensor Modified Files: itensor.lisp Log Message: (1) Call GETCHARN which returns a character instead of GETCHAR which returns a symbol when all that we want to do is test the first character (to see if it is $ or %). (2) In GETCHARN itself, return NIL if index is out of range (which is what GETCHAR does). Index: itensor.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/share/tensor/itensor.lisp,v retrieving revision 1.67 retrieving revision 1.68 diff -u -d -r1.67 -r1.68 --- itensor.lisp 5 Oct 2007 16:31:59 -0000 1.67 +++ itensor.lisp 17 Feb 2008 01:42:49 -0000 1.68 @@ -190,7 +190,7 @@ (defun getcon (e) ;; Helper to obtain contractions on both the noun and verb form of E - (cond ((and (symbolp e) (eq (getchar e 1) '%)) (zl-get ($verbify e) 'contractions)) + (cond ((and (symbolp e) (eq (getcharn e 1) #\%)) (zl-get ($verbify e) 'contractions)) (t (zl-get e 'contractions)) ) ) |