diff options
| author | Charles Zhang <charleszhang99@yahoo.com> | 2024-05-16 18:21:26 +0200 |
|---|---|---|
| committer | Charles Zhang <charleszhang99@yahoo.com> | 2024-05-18 02:32:12 +0200 |
| commit | a1ca3fe4f1d6bde7425fc635678e8c6faffcbb6b (patch) | |
| tree | f073479f24edbc51d2bdfcfea05501ae1fcee9d4 /contrib/sb-gmp | |
| parent | 8438fc57bb83637ef7f177e8f467183df8e9e932 (diff) | |
Don't have SB-BIGNUM use SB-ALIEN, SB-SYS, or SB-KERNEL.
Which breaks some mutual package use cycles.
Diffstat (limited to 'contrib/sb-gmp')
| -rw-r--r-- | contrib/sb-gmp/gmp.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/sb-gmp/gmp.lisp b/contrib/sb-gmp/gmp.lisp index 660333b54..9807316f4 100644 --- a/contrib/sb-gmp/gmp.lisp +++ b/contrib/sb-gmp/gmp.lisp @@ -345,7 +345,7 @@ pre-allocated bignum. The allocated bignum-length must be (1+ COUNT)." (defmacro with-mpz-results (pairs &body body) (loop for (gres size) in pairs for res = (gensym "RESULT") - collect `(when (> ,size sb-kernel:maximum-bignum-length) + collect `(when (> ,size sb-bignum:maximum-bignum-length) (error "Size of result exceeds maxim bignum length")) into checks collect `(,gres (struct gmpint)) into declares collect `(,res (allocate-bignum ,size)) @@ -405,7 +405,7 @@ pre-allocated bignum. The allocated bignum-length must be (1+ COUNT)." collect `(__gmpz_init (addr ,gres)) into inits collect `(,size (abs (slot ,gres 'mp_size))) into resinits - collect `(when (> ,size (1- sb-kernel:maximum-bignum-length)) + collect `(when (> ,size (1- sb-bignum:maximum-bignum-length)) (error "Size of result exceeds maxim bignum length")) into checks collect `(,res (allocate-bignum (1+ ,size))) into resallocs |