X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-gmp%2Fgmp.lisp;fp=contrib%2Fsb-gmp%2Fgmp.lisp;h=283db5a49eb128a060b9caa351cd4b0e213cb04d;hb=eb520f74a818e381004bd69668d7ba1abb94a0bb;hp=3dfefd6b80489e75ab293c236848b9974a59d6d0;hpb=7a2ee8c1aff0bdd286cf5d43ab40bff7fed86bea;p=sbcl.git

diff --git a/contrib/sb-gmp/gmp.lisp b/contrib/sb-gmp/gmp.lisp
index 3dfefd6..283db5a 100644
--- 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)
-  (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))))