mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ECL signals a SIMPLE-TYPE-ERROR instead of a SIMPLE-ERROR.

Browse Source
This commit is contained in:
Gerd Heber 2015-07-17 14:04:28 -05:00
parent 5d3b7815eb
commit ed51e2b993
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/kan-test.lisp
View File

@ -114,4 +114,6 @@
(delete (nth 1 faces) faces) (delete (nth 1 faces) faces)
(cat:check-hat od 1 3 faces) (cat:check-hat od 1 3 faces)
(setf (nth 2 faces) (nth 1 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))))