[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] master: Quote sexprs to COMPILE in tests
From:       "Douglas Katzman" <snuglas () users ! sourceforge ! net>
Date:       2015-05-31 6:53:45
Message-ID: E1Yyx81-0001Cg-9V () sfs-ml-3 ! v29 ! ch3 ! sourceforge ! com
[Download RAW message or body]

The branch "master" has been updated in SBCL:
       via  e99219907c13d19dcc56ef25ebc9e2065e2345c9 (commit)
      from  8f964d4d1d365b76f3fef3724232a76c40b6c4ad (commit)

- Log -----------------------------------------------------------------
commit e99219907c13d19dcc56ef25ebc9e2065e2345c9
Author: Douglas Katzman <dougk@google.com>
Date:   Sun May 31 02:53:13 2015 -0400

    Quote sexprs to COMPILE in tests
---
 tests/list.pure.lisp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/list.pure.lisp b/tests/list.pure.lisp
index 6c15353..b5a3978 100644
--- a/tests/list.pure.lisp
+++ b/tests/list.pure.lisp
@@ -276,7 +276,7 @@
 (macrolet ((test (value form)
              `(let ((* ,value))
                 (assert (eval ,form))
-                (assert (funcall (compile nil (lambda () ,form)))))))
+                (assert (funcall (compile nil '(lambda () ,form)))))))
   (test 'evenp
         (equal '(2 3 4) (member-if * (list 1 2 3 4))))
   (test 'evenp
@@ -300,7 +300,7 @@
 (macrolet ((test (value form)
              `(let ((* ,value))
                 (assert (eval ,form))
-                (assert (funcall (compile nil (lambda () ,form)))))))
+                (assert (funcall (compile nil '(lambda () ,form)))))))
   (test 'oddp
         (equal '(2 3 4) (member-if-not * (list 1 2 3 4))))
   (test 'oddp

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL

------------------------------------------------------------------------------
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]