137 |
t) |
t) |
138 |
|
|
139 |
(deftest assoc-if-not.error.9 |
(deftest assoc-if-not.error.9 |
140 |
(signals-error (assoc-if-not #'car '((a b)(c d))) |
(signals-type-error x 'a (assoc-if-not #'car '((a b)(c d)))) |
|
type-error) |
|
141 |
t) |
t) |
142 |
|
|
143 |
(deftest assoc-if-not.error.10 |
(deftest assoc-if-not.error.10 |
144 |
(signals-error (assoc-if-not #'identity '((a b)(c d)) :key #'car) |
(signals-type-error x 'a (assoc-if-not #'identity '((a b)(c d)) :key #'car)) |
|
type-error) |
|
145 |
t) |
t) |
146 |
|
|
147 |
(deftest assoc-if-not.error.11 |
(deftest assoc-if-not.error.11 |
155 |
t) |
t) |
156 |
|
|
157 |
(deftest assoc-if-not.error.13 |
(deftest assoc-if-not.error.13 |
158 |
(signals-error (assoc-if-not #'identity 'y) type-error) |
(signals-type-error x 'y (assoc-if-not #'identity x)) |
159 |
t) |
t) |