[Maxima-commits] CVS: maxima/src nparse.lisp,1.49,1.50

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

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv23947/src

Modified Files:
	nparse.lisp 
Log Message:
Helpful comment about MSTRINGP.

Index: nparse.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/nparse.lisp,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -d -r1.49 -r1.50
--- nparse.lisp	14 Feb 2008 01:31:38 -0000	1.49
+++ nparse.lisp	21 Jun 2008 21:15:12 -0000	1.50
@@ -489,7 +489,7 @@
 (defmacro first-c () '(peek-one-token))
 (defmacro pop-c   () '(scan-one-token))
 
-(defun mstringp (x) (stringp x))
+(defun mstringp (x) (stringp x)) ;; OBSOLETE. PRESERVE FOR SAKE OF POSSIBLE CALLS FROM NON-MAXIMA CODE !!
 
 (defun inherit-propl (op-to op-from getl)
   (let ((propl (getl op-from getl)))