[Maxima-commits] [git] Maxima CAS branch, master, updated. branch-5_38-base-112-gaa0a365

[Leo B. <l_b...@us...>]

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 CAS".

The branch, master has been updated
       via  aa0a36528f8fcd5f4b74779242b3cc4061b89a37 (commit)
      from  1adebc1215f7e5d7ae2a05ff31373e74f266655e (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 aa0a36528f8fcd5f4b74779242b3cc4061b89a37
Author: Leo Butler <l_b...@us...>
Date:   Fri Jun 24 23:56:53 2016 -0500

    Fix bug 3180: declare(foo, antisymmetric) has no effect on subscripted foo
    
    In commit 20b4b5, the sanity check should use $atom not $mapatom as $mapatom
    prevents correct simplification of subscripted arguments.
    
    A regression test is also added.

diff --git a/src/asum.lisp b/src/asum.lisp
index 8694c64..f508573 100644
--- a/src/asum.lisp
+++ b/src/asum.lisp
@@ -982,7 +982,7 @@ summation when necessary."
   (when (and $dotscrules (mnctimesp e))
     (let ($dotexptsimp)
       (setq e (simpnct e 1 nil))))
-  (if ($mapatom e) e (antisym1 e z)))
+  (if ($atom e) e (antisym1 e z)))
 
 (defun antisym1 (e z)
   (let ((antisym-sign nil)
diff --git a/tests/rtest11.mac b/tests/rtest11.mac
index 75ea9b6..8517dbc 100644
--- a/tests/rtest11.mac
+++ b/tests/rtest11.mac
@@ -141,6 +141,8 @@ h(x,y,z)$
 done$
 h(x,z,y);
 -h(x,y,z)$
+h[x,z,y]$
+-h[x,y,z];
 (kill(all),declare(j,nary));
 done$
 j(j(a,b),j(c,d));

-----------------------------------------------------------------------

Summary of changes:
 src/asum.lisp     |    2 +-
 tests/rtest11.mac |    2 ++
 2 files changed, 3 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
Maxima CAS