143 |
(member 'z '(a b c d) :key nil) |
(member 'z '(a b c d) :key nil) |
144 |
nil) |
nil) |
145 |
|
|
146 |
(deftest member-20 |
;;; Keyword tests |
147 |
|
|
148 |
|
(deftest member.allow-other-keys.1 |
149 |
(member 'b '(a b c) :bad t :allow-other-keys t) |
(member 'b '(a b c) :bad t :allow-other-keys t) |
150 |
(b c)) |
(b c)) |
151 |
|
|
152 |
(deftest member-21 |
(deftest member.allow-other-keys.2 |
153 |
|
(member 'b '(a b c) :allow-other-keys t :bad t) |
154 |
|
(b c)) |
155 |
|
|
156 |
|
(deftest member.allow-other-keys.3 |
157 |
|
(member 'b '(a b c) :allow-other-keys t) |
158 |
|
(b c)) |
159 |
|
|
160 |
|
(deftest member.allow-other-keys.4 |
161 |
|
(member 'b '(a b c) :allow-other-keys nil) |
162 |
|
(b c)) |
163 |
|
|
164 |
|
(deftest member.allow-other-keys.5 |
165 |
|
(member 'b '(a b c) :allow-other-keys 17 :allow-other-keys nil '#:x t) |
166 |
|
(b c)) |
167 |
|
|
168 |
|
(deftest member.keywords.6 |
169 |
(member 'b '(a b c) :test #'eq :test (complement #'eq)) |
(member 'b '(a b c) :test #'eq :test (complement #'eq)) |
170 |
(b c)) |
(b c)) |
171 |
|
|