Maxima -- GPL CAS based on DOE-MACSYMA

Mactex ignores aliases; here is an example

(%i1) ordergreat(a);
(%o1) DONE
(%i2) tex(a);
$$_101a\leqno{\tt NIL}$$
(%o2) NIL
(%i3) build_info();

Maxima version: 5.9.0.1cvs
Maxima build date: 12:29 5/12/2004
host type: i686-pc-mingw32
lisp-implementation-type: Kyoto Common Lisp
lisp-implementation-version: GCL 2.7.0

Here is one way fix this bug; change tex-atom to

(defun tex-atom (x l r) ;; atoms: note: can we lose by
leaving out {}s ?
(if (symbolp x) (setq x (or (get x 'reversealias) x)))
(append l
(list (cond ((numberp x) (texnumformat x))
((and (symbolp x) (get
x 'texword)))
((stringp x) (tex-string x))
((characterp x) (tex-char x))
(t (tex-stripdollar x))))
r))

Testing ...

(%o3)
(%i4) load("c:/maximacvs/maxima/src/mactex.lisp");

(%o4) c:/maximacvs/maxima/src/mactex.lisp
(%i5) tex(a);

$$a\leqno{\tt NIL}$$
(%o5) NIL
(%i6)

Ordergreat isn't all that useful, but it is a good way to
change the ordering of an expression to something more
standard for typesetting.

Barton