robustify ONLY-ONE-BOXED-CONSTANT-FOR-MULTIPLE-USES test

  Was broken on x86 due to test fragility.

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index 4bdde67..ed4d708 100644 (file)
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -4126,8 +4126,7 @@
          (fun (compile nil
                        `(lambda (x)
                           (unknown-fun ,big (+ ,big x))))))
-    (assert (equal (list 0 (1+ most-positive-fixnum))
-                   (ctu:find-code-constants fun :type 'integer)))))
+    (assert (= 1 (length (ctu:find-code-constants fun :type '(eql ,big)))))))
 
 (with-test (:name :fixnum+float-coerces-fixnum
             :skipped-on :x86)