X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.pure-cload.lisp;h=9521ae4a30492126c1300a048c6511f7062b84e6;hb=78fa16bf55be44cc16845be84d98023e83fb14bc;hp=b61f5e525b1ec2f0d60d42e932f1a8960d877e19;hpb=77d94d36bcfd3d5eea73ad51e6ee621a8938f995;p=sbcl.git diff --git a/tests/compiler.pure-cload.lisp b/tests/compiler.pure-cload.lisp index b61f5e5..9521ae4 100644 --- a/tests/compiler.pure-cload.lisp +++ b/tests/compiler.pure-cload.lisp @@ -131,6 +131,7 @@ (declare (type (simple-array (unsigned-byte 32) (*)) a)) (declare (type (function (fixnum)) f)) (funcall f (aref a 0)))) + #-x86-64 (assert (eval `(let ((n (1+ most-positive-fixnum))) (if (not (typep n '(unsigned-byte 32)))