From c7a7965b135566ab75a225515dfae9c5b24e3df3 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 8 Dec 2011 17:54:39 +0200 Subject: [PATCH] robustify ONLY-ONE-BOXED-CONSTANT-FOR-MULTIPLE-USES test Was broken on x86 due to test fragility. --- tests/compiler.pure.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp index 4bdde67..ed4d708 100644 --- 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) -- 1.7.10.4