388 |
(classify-error (rplaca (cons 'a 'b) (cons 'c 'd) 'garbage)) |
(classify-error (rplaca (cons 'a 'b) (cons 'c 'd) 'garbage)) |
389 |
program-error) |
program-error) |
390 |
|
|
391 |
|
(deftest rplaca.error.5 |
392 |
|
(classify-error (rplaca 'a 1)) |
393 |
|
type-error) |
394 |
|
|
395 |
|
(deftest rplaca.error.6 |
396 |
|
(classify-error (locally (rplaca 'a 1) t)) |
397 |
|
type-error) |
398 |
|
|
399 |
;; rplacd on a fixnum is a type error |
;; rplacd on a fixnum is a type error |
400 |
(deftest rplacd.error.1 |
(deftest rplacd.error.1 |
401 |
(loop for x in *universe* |
(loop for x in *universe* |
415 |
(classify-error (rplacd (cons 'a 'b) (cons 'c 'd) 'garbage)) |
(classify-error (rplacd (cons 'a 'b) (cons 'c 'd) 'garbage)) |
416 |
program-error) |
program-error) |
417 |
|
|
418 |
|
(deftest rplacd.error.5 |
419 |
|
(classify-error (rplacd 'a 1)) |
420 |
|
type-error) |
421 |
|
|
422 |
|
(deftest rplacd.error.6 |
423 |
|
(classify-error (locally (rplacd 'a 1) t)) |
424 |
|
type-error) |