Skip to content

Commit

Permalink
Fix build with SBCL 2.4.7 on x86-32
Browse files Browse the repository at this point in the history
It looks like the %add-with-carry and %subtract-with-borrow symbols are not
available anymore in the sb-bignum package.
  • Loading branch information
glv2 committed Aug 20, 2024
1 parent ca88807 commit 2e9bb0a
Showing 1 changed file with 0 additions and 12 deletions.
12 changes: 0 additions & 12 deletions src/common.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -766,12 +766,6 @@ uint64_t r = (n << 56)
(defun %add-with-carry (x y carry)
(declare (type (unsigned-byte 32) x y)
(type (mod 2) carry))
#+(and sbcl 32-bit)
(sb-bignum:%add-with-carry x y carry)
#+(and cmucl 32-bit)
(bignum:%add-with-carry x y carry)
#-(or (and sbcl 32-bit)
(and cmucl 32-bit))
(let* ((temp (mod32+ x y))
(temp-carry (if (< temp x) 1 0))
(result (mod32+ temp carry)))
Expand All @@ -780,12 +774,6 @@ uint64_t r = (n << 56)
(defun %subtract-with-borrow (x y borrow)
(declare (type (unsigned-byte 32) x y)
(type (mod 2) borrow))
#+(and sbcl 32-bit)
(sb-bignum:%subtract-with-borrow x y borrow)
#+(and cmucl 32-bit)
(bignum:%subtract-with-borrow x y borrow)
#-(or (and sbcl 32-bit)
(and cmucl 32-bit))
(let ((temp (mod32- x y)))
(cond
((zerop borrow)
Expand Down

0 comments on commit 2e9bb0a

Please sign in to comment.