From ed51e2b993e30ba8f740d309f34bb11934540443 Mon Sep 17 00:00:00 2001 From: Gerd Heber Date: Fri, 17 Jul 2015 14:04:28 -0500 Subject: [PATCH] ECL signals a SIMPLE-TYPE-ERROR instead of a SIMPLE-ERROR. --- test/kan-test.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/test/kan-test.lisp b/test/kan-test.lisp index 2b39fc1..78b1260 100644 --- a/test/kan-test.lisp +++ b/test/kan-test.lisp @@ -114,4 +114,6 @@ (delete (nth 1 faces) faces) (cat:check-hat od 1 3 faces) (setf (nth 2 faces) (nth 1 faces)) - (signals simple-error (cat:check-hat od 1 3 faces)))) + (signals #-ecl simple-error + #+ecl simple-type-error + (cat:check-hat od 1 3 faces))))