[Maxima-commits] [git] Maxima CAS branch master updated. branch-5_49-base-551-g49168e159

[tomasriker <tom...@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  49168e159c981be4b9882f92edc2c4e1e31d34f1 (commit)
       via  d530c320287c0c1037665ca828134f2234067b78 (commit)
      from  76e6b850b2ac06f1cdd3891ce1c23fa7091ce6d4 (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 49168e159c981be4b9882f92edc2c4e1e31d34f1
Merge: d530c3202 76e6b850b
Author: David Scherfgen <d.s...@go...>
Date:   Fri May 29 15:10:57 2026 +0200

    Merge branch 'master' of git://git.code.sf.net/p/maxima/code

diff --cc src/compar.lisp
index 3b9dfe0d8,22ee4e03e..fc3221589
--- a/src/compar.lisp
+++ b/src/compar.lisp
@@@ -1582,11 -1582,11 +1582,11 @@@ TDNEG TDZERO TDPN) to store it, and als
      
      ;; For the following test, swap XLHS and XRHS, if necessary, so that XRHS is
      ;; the number, e.g. x^2 - 3 -> 3 - x^2, and remember to flip the result.
-     (when (and (mnump xlhs) (not (mnump xrhs)))
+     (when (and (null sgn) (mnump xlhs) (not (mnump xrhs)))
        (psetq xlhs xrhs xrhs xlhs flip-sign (not flip-sign)))
      
 -    ;; sign(a^pos_int - b) = sign(abs_if_even(a) - b^(1/pos_int))
 -    ;; with real a, b >= 0 (for even pos_int), and b^(1/pos_int) being the real root
 +    ;; sign(a^pos_int - b) = sign((if evenp(pos_int) then abs(a) else a) - b^(1/pos_int))
 +    ;; with real a, real b (>= 0 for evenp(pos_int)), and b^(1/pos_int) being the real root
      (when (and (null sgn)
                 (mnump xrhs)
                 (mexptp xlhs)

commit d530c320287c0c1037665ca828134f2234067b78
Author: David Scherfgen <d.s...@go...>
Date:   Fri May 29 07:35:12 2026 +0200

    Minor comment improvement in SIGNDIFF-SPECIAL

diff --git a/src/compar.lisp b/src/compar.lisp
index 3e33b3800..3b9dfe0d8 100644
--- a/src/compar.lisp
+++ b/src/compar.lisp
@@ -1566,7 +1566,7 @@ TDNEG TDZERO TDPN) to store it, and also sets SIGN."
       (t  ;; -1 < c < 1, but c # 0
         (setq sgn '$pn))))
     
-    ;; sign(abs(a) - b) = sign_max(sign(a - b), sign(-a - b)) with real a, b
+    ;; sign(abs(a) - b) = sign_max(sign(a - b), sign(-a - b)) with real a, real b
     (when (and (null sgn)
                (not (atom xlhs))
                (eq (caar xlhs) 'mabs)
@@ -1585,8 +1585,8 @@ TDNEG TDZERO TDPN) to store it, and also sets SIGN."
     (when (and (mnump xlhs) (not (mnump xrhs)))
       (psetq xlhs xrhs xrhs xlhs flip-sign (not flip-sign)))
     
-    ;; sign(a^pos_int - b) = sign(abs_if_even(a) - b^(1/pos_int))
-    ;; with real a, b >= 0 (for even pos_int), and b^(1/pos_int) being the real root
+    ;; sign(a^pos_int - b) = sign((if evenp(pos_int) then abs(a) else a) - b^(1/pos_int))
+    ;; with real a, real b (>= 0 for evenp(pos_int)), and b^(1/pos_int) being the real root
     (when (and (null sgn)
                (mnump xrhs)
                (mexptp xlhs)

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

Summary of changes:
 src/compar.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
Maxima CAS