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)
|
(signals simple-error (cat:finite-ss-pre-table '(0 v0 (v0 v0)
|
||||||
(v1 v1))))
|
(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) (v1 v1))))
|
||||||
(signals simple-error (cat:finite-ss-pre-table '(0 v0 (v0 v0)
|
(signals #-(or ecl sbcl) simple-error #+(or ecl sbcl) type-error
|
||||||
#(1 2))))))
|
(cat:finite-ss-pre-table '(0 v0 (v0 v0) #(1 2))))))
|
||||||
|
|
||||||
|
|
||||||
(test finite-ss-pre-table-table
|
(test finite-ss-pre-table-table
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user