Save a few bytes for GMP-gcd in CCL

hemmecke · Oct 21, 2024 · c39b7de · c39b7de
1 parent 0f43572
commit c39b7de
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,4 +1,8 @@
-2024-10-18  Qian Yun  <[email protected]>
+2024-10-21  Qian Yun  <[email protected]>
+
+	* src/lisp/num_gmp.lisp: Save a few bytes for GMP-gcd in CCL
+
+2024-10-21  Qian Yun  <[email protected]>
 
 	* src/lisp/fricas-lisp.lisp: Workaround CLISP 'truename' bug
 

diff --git a/src/lisp/num_gmp.lisp b/src/lisp/num_gmp.lisp
@@ -462,7 +462,7 @@
          (rl (if (< xl yl) xl yl))
          (xlb (words_to_bytes xl))
          (ylb (words_to_bytes yl))
-         (rlb (+ xlb ylb))
+         (rlb (if (< xlb ylb) xlb ylb))
         )
         (declare (type fixnum xl yl rl xlb ylb rlb))
         ;;; XXX Does not work