6 lines
277 B
Plaintext
6 lines
277 B
Plaintext
;;; Regression test for AR 6781: etypecase produces incorrect error message
|
|
|
|
(do-test "AR 6781"
|
|
(not (search "the value of" (xcl:condition-case (progn (etypecase "foo" (symbol 1) (integer 2)) "the value of") (xcl:type-mismatch (c) (princ-to-string c))) :test 'char-equal))
|
|
)
|