[Top][All Lists]
[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.