From b80d28ea6387828e6a095ffa835b9b631c5749ea Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 1 May 2013 22:32:06 +0100 Subject: [PATCH] Fix test in SBCL --- tests/list.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/list.lisp b/tests/list.lisp index 0365b5f..3ff5515 100644 --- a/tests/list.lisp +++ b/tests/list.lisp @@ -4,7 +4,7 @@ ;; Once it does the lists can be compared directly in many of these tests ; COPY-TREE -(test (let* ((foo '((1 2) (3 4))) +(test (let* ((foo (list '(1 2) '(3 4))) (bar (copy-tree foo))) ;; (SETF (CAR (CAR FOO)) 0) doesn't work in the test for some reason, ;; despite working fine in the REPL -- 1.7.10.4