From 2ab450b857634fb07439f8adec488b48bdc5e408 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 8 Dec 2011 20:09:00 +0200 Subject: [PATCH] fix tyop in ONLY-ONE-BOXED-CONSTANT-FOR-MULTIPLE-USES that broke it s/'/`/ --- tests/compiler.pure.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp index ed4d708..72da1a6 100644 --- a/tests/compiler.pure.lisp +++ b/tests/compiler.pure.lisp @@ -4126,7 +4126,7 @@ (fun (compile nil `(lambda (x) (unknown-fun ,big (+ ,big x)))))) - (assert (= 1 (length (ctu:find-code-constants fun :type '(eql ,big))))))) + (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