projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix sb-gmp:mpz-pow for non-bignum bases
[sbcl.git]
/
contrib
/
sb-gmp
/
gmp.lisp
diff --git
a/contrib/sb-gmp/gmp.lisp
b/contrib/sb-gmp/gmp.lisp
index
3dfefd6
..
283db5a
100644
(file)
--- a/
contrib/sb-gmp/gmp.lisp
+++ b/
contrib/sb-gmp/gmp.lisp
@@
-449,9
+449,6
@@
be (1+ COUNT)."
(__gmpz_tdiv_qr (addr quot) (addr rem) (addr gn) (addr gd))))))
(defun mpz-pow (base exp)
(__gmpz_tdiv_qr (addr quot) (addr rem) (addr gn) (addr gd))))))
(defun mpz-pow (base exp)
- (declare (optimize (speed 3) (space 3) (safety 0))
- (type bignum-type base))
- (check-type exp (unsigned-byte #.sb-vm:n-word-bits))
(with-gmp-mpz-results (rop)
(with-mpz-vars ((base gbase))
(__gmpz_pow_ui (addr rop) (addr gbase) exp))))
(with-gmp-mpz-results (rop)
(with-mpz-vars ((base gbase))
(__gmpz_pow_ui (addr rop) (addr gbase) exp))))