79 |
(tree-equal x y)) |
(tree-equal x y)) |
80 |
nil) |
nil) |
81 |
|
|
82 |
|
(defharmless tree-equal.test-and-test-not.1 |
83 |
|
(tree-equal '(a b) '(a b) :test #'eql :test-not #'eql)) |
84 |
|
|
85 |
|
(defharmless tree-equal.test-and-test-not.2 |
86 |
|
(tree-equal '(a b) '(a b) :test-not #'eql :test #'eql)) |
87 |
|
|
88 |
;;; Keywords tests |
;;; Keywords tests |
89 |
|
|
90 |
(deftest tree-equal.allow-other-keys.1 |
(deftest tree-equal.allow-other-keys.1 |
104 |
:allow-other-keys nil :foo t)) |
:allow-other-keys nil :foo t)) |
105 |
t) |
t) |
106 |
|
|
107 |
|
(deftest tree-equal.keywords.1 |
108 |
|
(notnot-mv (tree-equal '(a . b) '(b . a) |
109 |
|
:test (complement #'eql) |
110 |
|
:test #'eql)) |
111 |
|
t) |
112 |
|
|
113 |
|
|
114 |
;;; Error tests |
;;; Error tests |
115 |
|
|
116 |
(deftest tree-equal.error.1 |
(deftest tree-equal.error.1 |
129 |
(classify-error (tree-equal '(a b) '(a b) (gensym) t :allow-other-keys nil)) |
(classify-error (tree-equal '(a b) '(a b) (gensym) t :allow-other-keys nil)) |
130 |
program-error) |
program-error) |
131 |
|
|
132 |
|
(deftest tree-equal.error.5 |
133 |
|
(classify-error (tree-equal '(a b) '(a b) :test #'identity)) |
134 |
|
program-error) |
135 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
136 |
|
(deftest tree-equal.error.6 |
137 |
|
(classify-error (tree-equal '(a b) '(a b) :test #'(lambda (x y z) (eq x y)))) |
138 |
|
program-error) |