27 |
|
|
28 |
;; rplaca on a non-cons is a type error |
;; rplaca on a non-cons is a type error |
29 |
(deftest rplaca.error.1 |
(deftest rplaca.error.1 |
30 |
(loop for x in *universe* |
(check-type-error #'(lambda (x) (rplaca x 1)) #'consp) |
|
thereis (and (not (consp x)) |
|
|
(not (eval `(signals-error (rplaca ',x 1) type-error))))) |
|
31 |
nil) |
nil) |
32 |
|
|
33 |
(deftest rplaca.error.2 |
(deftest rplaca.error.2 |
42 |
(signals-error (rplaca (cons 'a 'b) (cons 'c 'd) 'garbage) program-error) |
(signals-error (rplaca (cons 'a 'b) (cons 'c 'd) 'garbage) program-error) |
43 |
t) |
t) |
44 |
|
|
|
(deftest rplaca.error.5 |
|
|
(signals-error (rplaca 'a 1) type-error) |
|
|
t) |
|
|
|
|
45 |
(deftest rplaca.error.6 |
(deftest rplaca.error.6 |
46 |
(signals-error (locally (rplaca 'a 1) t) type-error) |
(signals-error (locally (rplaca 'a 1) t) type-error) |
47 |
t) |
t) |