fix tyop in ONLY-ONE-BOXED-CONSTANT-FOR-MULTIPLE-USES that broke it
authorNikodemus Siivola <nikodemus@random-state.net>
Thu, 8 Dec 2011 18:09:00 +0000 (20:09 +0200)
committerNikodemus Siivola <nikodemus@random-state.net>
Thu, 8 Dec 2011 18:10:24 +0000 (20:10 +0200)
  s/'/`/

tests/compiler.pure.lisp

index ed4d708..72da1a6 100644 (file)
          (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)