ECL and SBCL signal TYPE-ERROR instead of SIMPPLE-ERROR.

This commit is contained in:
Gerd Heber 2015-07-27 20:53:48 -05:00
parent a1ca5821c3
commit cb8a3d582c

View File

@ -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