ECL and SBCL signal TYPE-ERROR instead of SIMPPLE-ERROR.
This commit is contained in:
parent
a1ca5821c3
commit
cb8a3d582c
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user