axiom-developer
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Axiom-developer] RE: Patches for Maxima on DoyenCD


From: Page, Bill
Subject: [Axiom-developer] RE: Patches for Maxima on DoyenCD
Date: Tue, 3 Oct 2006 05:49:34 -0400

Alfredo,

On Tuesday, October 03, 2006 2:56 AM I wrote:
> ... 
> Here are the patches:
> 
> address@hidden LatexWiki]# cd ~
> address@hidden ~]# 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:
 
address@hidden 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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]