0.8.18.14:
[sbcl.git] / tests / compiler.pure-cload.lisp
index b61f5e5..9521ae4 100644 (file)
            (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)))