X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Farith.pure.lisp;h=1505a57ee6c34c50a1be089a35dabe18e1b1130f;hb=1dc3a468ba32755c51747d6e85ed32d989f2dd49;hp=915c5457999bf89449120a71b9d91155d92da1b4;hpb=1a1f1815159e714a635e92e9f0f2f7845e64fc91;p=sbcl.git

diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index 915c545..1505a57 100644
--- a/tests/arith.pure.lisp
+++ b/tests/arith.pure.lisp
@@ -21,9 +21,9 @@
              `(progn
                (assert (= (,op 4 2) ,res1))
                (assert (= (,op 2 4) ,res2))
-               (assert (= (funcall (compile nil (lambda (x y) (,op x y))) 4 2)
+               (assert (= (funcall (compile nil '(lambda (x y) (,op x y))) 4 2)
                         ,res1))
-               (assert (= (funcall (compile nil (lambda (x y) (,op x y))) 2 4)
+               (assert (= (funcall (compile nil '(lambda (x y) (,op x y))) 2 4)
                         ,res2)))))
   (test + 6 6)
   (test - 2 -2)