From: Robert D. <rob...@us...> - 2008-03-27 13:11:14
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv9979/src Modified Files: mactex.lisp Log Message: In $TEXPUT, verbify strings (now necessary since Maxima strings are not Lisp symbols). Index: mactex.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/mactex.lisp,v retrieving revision 1.59 retrieving revision 1.60 diff -u -d -r1.59 -r1.60 --- mactex.lisp 17 Feb 2008 01:42:49 -0000 1.59 +++ mactex.lisp 27 Mar 2008 13:10:10 -0000 1.60 @@ -986,6 +986,13 @@ ;; The texput function was written by Barton Willis. (defun $texput (e s &optional tx) + + (cond + ((stringp e) + (setq e ($verbify e))) + ((not (symbolp e)) + (merror "texput: first argument must be a string or a symbol."))) + (setq s (if ($listp s) (margs s) (list s))) (cond ((null tx) |