X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fnumbers.lisp;h=5522134a50c53af037cd063ab156b07ef2db6d6d;hb=224466fab9dc4e8b3faf13a121f827f198811bf6;hp=283cd4a88704b94d81984d2ca4b691fed171928c;hpb=5af8c2ae56df139842270bd9c9605c5d4b2d5148;p=sbcl.git

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index 283cd4a..5522134 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -1358,15 +1358,13 @@
 #.
 (collect ((forms))
   (flet ((definition (name lambda-list width pattern)
-           (assert (sb!xc:subtypep `(unsigned-byte ,width)
-                                   'bignum-element-type))
            `(defun ,name ,lambda-list
               (flet ((prepare-argument (x)
                        (declare (integer x))
                        (etypecase x
                          ((unsigned-byte ,width) x)
                          (fixnum (logand x ,pattern))
-                         (bignum (logand (%bignum-ref x 0) ,pattern)))))
+                         (bignum (logand x ,pattern)))))
                 (,name ,@(loop for arg in lambda-list
                                collect `(prepare-argument ,arg)))))))
     (loop for infos being each hash-value of sb!c::*modular-funs*