diff options
| author | Guillaume Le Vaillant <glv@posteo.net> | 2024-08-20 09:39:57 +0200 |
|---|---|---|
| committer | Guillaume Le Vaillant <glv@posteo.net> | 2024-08-20 09:39:57 +0200 |
| commit | 2e9bb0a0a1a9b57abae8c6da4a425f6a2915392e (patch) | |
| tree | 8a59f1d48d46a378f268e7ff4156b3030218e8c3 | |
| parent | ca8880797cbe235a94c0178871807d7fe476330a (diff) | |
Fix build with SBCL 2.4.7 on x86-32
It looks like the %add-with-carry and %subtract-with-borrow symbols are not
available anymore in the sb-bignum package.
| -rw-r--r-- | src/common.lisp | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/common.lisp b/src/common.lisp index ebd4312..fd0727e 100644 --- a/src/common.lisp +++ b/src/common.lisp @@ -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))) @@ -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) |