maxima-commits

 [Maxima-commits] Maxima, A Computer Algebra System branch branch-5_25 updated. c686c8c455fe4b9bfab33d5c88c9fd4e265c0ad8 From: Dieter Kaiser - 2011-08-24 22:32:08 ```This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "Maxima, A Computer Algebra System". The branch, branch-5_25 has been updated via c686c8c455fe4b9bfab33d5c88c9fd4e265c0ad8 (commit) from a926eaf6cae28393128387687c94ba60d40fe175 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit c686c8c455fe4b9bfab33d5c88c9fd4e265c0ad8 Author: crategus Date: Tue Aug 23 02:26:47 2011 +0200 Correcting a bug in plusin. The variable v had not been reseted to the value 1 when we had a mexpt-expression. Related bug report. Bug ID: 3396631 - equal terms produce different results diff --git a/src/simp.lisp b/src/simp.lisp index 254cd69..ee6d87b 100644 --- a/src/simp.lisp +++ b/src/simp.lisp @@ -1195,7 +1195,8 @@ ;; Implement the simplification of ;; v*a^(c+n)+w*a^(c+m) -> (v*a^n+w*a^m)*a^c ;; where a, v, w, and (n-m) are integers. - ((and (or (mexptp (setq x2 (cadr fm))) + ((and (or (and (mexptp (setq x2 (cadr fm))) + (setq v 1)) (and (mtimesp x2) (not (alike1 x1 x2)) (null (cadddr x2)) ----------------------------------------------------------------------- Summary of changes: src/simp.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) hooks/post-receive -- Maxima, A Computer Algebra System ```