148 |
(car nil) |
(car nil) |
149 |
nil) |
nil) |
150 |
|
|
151 |
(deftest car-symbol-error |
(deftest car.error.1 |
152 |
(signals-type-error x 'a (car x)) |
(check-type-error #'car #'listp) |
153 |
t) |
nil) |
154 |
|
|
155 |
(deftest car-symbol-error.2 |
(deftest car.error.2 |
156 |
(signals-error (locally (car 'a) t) type-error) |
(signals-error (locally (car 'a) t) type-error) |
157 |
t) |
t) |
158 |
|
|
174 |
(values (cdr (progn (incf i) '(a b))) i)) |
(values (cdr (progn (incf i) '(a b))) i)) |
175 |
(b) 1) |
(b) 1) |
176 |
|
|
177 |
(deftest cdr-symbol-error |
(deftest cdr.error.1 |
178 |
(signals-type-error x 'a (cdr x)) |
(check-type-error #'cdr #'listp) |
179 |
t) |
nil) |
180 |
|
|
181 |
(deftest cdr-symbol-error.2 |
(deftest cdr.error.2 |
182 |
(signals-error (locally (cdr 'a) t) type-error) |
(signals-error (locally (cdr 'a) t) type-error) |
183 |
t) |
t) |
184 |
|
|