mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

DATUM in TYPECASE error should be the value, not the offending key.

Browse source
This commit is contained in:
jjgarcia 2004-12-03 17:34:50 +00:00
parent 755369b199
commit 2f48f60f1f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/assert.lsp
View file

@ -178,7 +178,7 @@ be used as a TYPE to specify the default case."
(defun etypecase-error (keyform value types)
(error 'CASE-FAILURE :name 'ETYPECASE
:datum keyform
:datum value
:expected-type (cons 'OR types)
:possibilities types))