140 |
t) |
t) |
141 |
|
|
142 |
(deftest assoc-if.error.9 |
(deftest assoc-if.error.9 |
143 |
(signals-error (assoc-if #'car '((a b)(c d))) |
(signals-type-error x 'a (assoc-if #'car '((a b)(c d)))) |
|
type-error) |
|
144 |
t) |
t) |
145 |
|
|
146 |
(deftest assoc-if.error.10 |
(deftest assoc-if.error.10 |
147 |
(signals-error (assoc-if #'identity '((a b)(c d)) :key #'car) |
(signals-type-error x 'a (assoc-if #'identity '((a b)(c d)) :key #'car)) |
|
type-error) |
|
148 |
t) |
t) |
149 |
|
|
150 |
(deftest assoc-if.error.11 |
(deftest assoc-if.error.11 |
158 |
t) |
t) |
159 |
|
|
160 |
(deftest assoc-if.error.13 |
(deftest assoc-if.error.13 |
161 |
(signals-error (assoc-if #'null 'y) type-error) |
(signals-type-error x 'y (assoc-if #'null x)) |
162 |
t) |
t) |