From cb8a3d582c5da392ed189d69c51035d6a233a109 Mon Sep 17 00:00:00 2001 From: Gerd Heber Date: Mon, 27 Jul 2015 20:53:48 -0500 Subject: [PATCH] ECL and SBCL signal TYPE-ERROR instead of SIMPPLE-ERROR. --- test/special-smsts-test.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/special-smsts-test.lisp b/test/special-smsts-test.lisp index ead3165..f1b2460 100644 --- a/test/special-smsts-test.lisp +++ b/test/special-smsts-test.lisp @@ -13,8 +13,8 @@ (signals simple-error (cat:finite-ss-pre-table '(0 v0 (v0 v0) (v1 v1)))) (signals simple-error (cat:finite-ss-pre-table '(0 (v0 v0) (v1 v1)))) - (signals simple-error (cat:finite-ss-pre-table '(0 v0 (v0 v0) - #(1 2)))))) + (signals #-(or ecl sbcl) simple-error #+(or ecl sbcl) type-error + (cat:finite-ss-pre-table '(0 v0 (v0 v0) #(1 2)))))) (test finite-ss-pre-table-table