On Äet, 2005-03-17 at 18:06 +0600, Andrey G. Grozin wrote:
> Dear James,
> Dear *,
>
> I want to make the TeXmacs interface compatible with the current maxima
> and forthcoming 5.9.2. I need to change one function: in
> texmacs-maxima-5.9.1.lisp it is
>
> (defun tex-stripdollar (sym)
> (or (symbolp sym) (return-from tex-stripdollar sym))
> (let* ((name (symbol-name sym))
> (name1 (if (memq (elt name 0) '(#\$ #\&)) (subseq name 1) name))
> (name2 (if (eql (elt name1 0) #\%) (concatenate 'string "\\" name1) name1))
> (l (length name2)))
> (if (eql l 1) name2 (concatenate 'string "\\mathrm{" name2 "}"))))
I use a similar function in wxmaxima. Maybe it is completely wrong but
if I replace symbol-name function with print-invert-case it seems to
work. Maybe it will work for you too.
Andrej