486 |
;;; Tests of error situations |
;;; Tests of error situations |
487 |
|
|
488 |
(deftest merge.error.1 |
(deftest merge.error.1 |
489 |
(handler-case (eval |
(handler-case (eval |
490 |
'(locally (declare (optimize (safety 3))) |
'(locally (declare (optimize (safety 3))) |
491 |
(merge 'symbol (list 1 2 3) (list 4 5 6) #'<))) |
(merge 'symbol (list 1 2 3) (list 4 5 6) #'<))) |
492 |
(error () :caught)) |
(error () :caught)) |
493 |
:caught) |
:caught) |
494 |
|
|
495 |
(deftest merge.error.2 |
(deftest merge.error.2 |
545 |
(classify-error (merge 'list (list 2 4 6) (list 1 3 5) #'< 1 2)) |
(classify-error (merge 'list (list 2 4 6) (list 1 3 5) #'< 1 2)) |
546 |
program-error) |
program-error) |
547 |
|
|
548 |
|
(deftest merge.error.15 |
549 |
|
(classify-error (locally (merge '(vector * 3) (list 1 2 3) |
550 |
|
(list 4 5 6) #'<) |
551 |
|
t)) |
552 |
|
type-error) |
553 |
|
|
554 |
|
|