projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
15ebaa6
)
[test] Remove comments about EQUAL not being properly defined for lists
author
Alfredo Beaumont
<alfredo.beaumont@gmail.com>
Fri, 10 May 2013 14:46:54 +0000
(16:46 +0200)
committer
Alfredo Beaumont
<alfredo.beaumont@gmail.com>
Fri, 10 May 2013 15:23:46 +0000
(17:23 +0200)
tests/list.lisp
patch
|
blob
|
history
diff --git
a/tests/list.lisp
b/tests/list.lisp
index
d96c7db
..
1296166
100644
(file)
--- a/
tests/list.lisp
+++ b/
tests/list.lisp
@@
-1,8
+1,5
@@
;; Tests for list functions
-;; TODO: EQUAL doesn't compare lists correctly at the moment.
-;; Once it does the lists can be compared directly in many of these tests
-
; COPY-TREE
(test (let* ((foo (list '(1 2) '(3 4)))
(bar (copy-tree foo)))
@@
-80,7
+77,6
@@
(test (equal (intersection '((1) (2)) '((2) (3)) :test #'equal) '((2))))
; SUBST
-; Can't really test this until EQUAL works properly on lists
; POP
(test (let* ((foo '(1 2 3))