126 |
nil))) |
nil))) |
127 |
t) |
t) |
128 |
|
|
129 |
|
(deftest subsetp-16 |
130 |
|
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :bad t :allow-other-keys 67)) |
131 |
|
t) |
132 |
|
|
133 |
|
(deftest subsetp-17 |
134 |
|
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) |
135 |
|
:allow-other-keys #'cons :bad t)) |
136 |
|
t) |
137 |
|
|
138 |
|
(deftest subsetp-18 |
139 |
|
(notnot (subsetp '(1 2 3 4) '(0 1 2 3 4) |
140 |
|
:allow-other-keys (make-hash-table) |
141 |
|
:bad t |
142 |
|
:test #'(lambda (x y) (= (1+ x) y)))) |
143 |
|
nil) |
144 |
|
|
145 |
(deftest subsetp.error.1 |
(deftest subsetp.error.1 |
146 |
(classify-error (subsetp)) |
(classify-error (subsetp)) |
147 |
program-error) |
program-error) |