X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fnumbers.lisp;h=3632cd6e89ac3af615e07303ec7bd99b2196d9f8;hb=62c09fabe8aa8f1bd75bf4db4c20e195a1b6bc1d;hp=bcd2c0ceffb05e0da97e4276c731828bad6f4a29;hpb=dd357f3be290498fb7ef172696d986337f517a93;p=sbcl.git

diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index bcd2c0c..3632cd6 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -1358,8 +1358,8 @@
 #.
 (collect ((forms))
   (flet ((definition (name lambda-list width pattern)
-           ;; We rely on (SUBTYPEP `(UNSIGNED-BYTE ,WIDTH)
-           ;;                      'BIGNUM-ELEMENT-TYPE)
+           (assert (sb!xc:subtypep `(unsigned-byte ,width)
+                                   'bignum-element-type))
            `(defun ,name ,lambda-list
               (flet ((prepare-argument (x)
                        (declare (integer x))