Alfredo,
On Tuesday, October 03, 2006 2:56 AM I wrote:
> ...
> Here are the patches:
>
> [EMAIL PROTECTED] LatexWiki]# cd ~
> [EMAIL PROTECTED] ~]# cd /var/lib/zope/Products/LatexWiki
>
> The first one is a correction to the Maxima Lisp interface code.
> Under GCL these extra \ $ characters are not generated so this
> code was none functional. But it is required to correct the weird
> behaviour of Maxima under Clisp.
> ...
I think this is a better patch:
[EMAIL PROTECTED] LatexWiki]# diff -au mathaction-maxima-5.9.3.lisp_orig
mathaction-maxima-5.9.3.lisp
--- mathaction-maxima-5.9.3.lisp_orig 2006-10-03
02:21:18.134961500-0400
+++ mathaction-maxima-5.9.3.lisp 2006-10-03
02:03:24.087837750-0400
@@ -36,7 +36,7 @@
(defun tex-stripdollar (sym)
(or (symbolp sym) (return-from tex-stripdollar sym))
(let* ((name (quote-% (print-invert-case sym)))
- (name1 (if (memq (elt name 0) '(#\$ #\&)) (subseq name 1) name))
+ (name1
+ (if (and (gt (length name) 2) (equal (subseq name 0 2)
"\\$"))
+ (subseq name 2) name))
(l (length name1)))
(if (eql l 1) name1 (concatenate 'string "\\mathrm{" name1 "}"))))
--------
Regards,
Bill Page.
_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer
