From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 5 Dec 2011 23:55:30 +0000 (+0200)
Subject: fix ONLY-ONE-BOXED-CONSTANT-FOR-MULTIPLE-USES test
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a2bef144377ccd88c6c3369b442fdd933fe1c4f1;p=sbcl.git

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

  Feh.
---

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