From: Andrej V. <an...@us...> - 2007-03-21 09:21:53
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv14793 Modified Files: sumcon.lisp Log Message: Commited a fix for intosum reported to the mailing list. Index: sumcon.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/sumcon.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- sumcon.lisp 17 Sep 2006 17:42:53 -0000 1.5 +++ sumcon.lisp 21 Mar 2007 09:21:49 -0000 1.6 @@ -60,7 +60,7 @@ (setq notsum (cons (car x) notsum))) ((eq (caaar x) '%sum) (setq sum (if (null sum) - (car x) + (copy-tree (car x)) (muln (list sum (car x)) t)))) (t (setq notsum (cons ($sumcontract (car x)) notsum)))))) |