[Maxima-commits] CVS: maxima/share/tensor itensor.lisp,1.67,1.68

[Robert D. <rob...@us...>]

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))
 	)
 )