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

ecase_error and etypecase_error tagged as no-return functions

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-12-15 22:23:14 +01:00
parent c1b8bfa888
commit 031cbcfbd1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/h/external.h
View file

@ -2171,8 +2171,8 @@ extern ECL_API cl_object si_assert_failure _ECL_ARGS((cl_narg narg, cl_object V1
/* assert.lsp */
extern ECL_API cl_object si_wrong_type_argument _ECL_ARGS((cl_narg narg, cl_object value, cl_object type, ...));
extern ECL_API cl_object si_ccase_error(cl_object keyform, cl_object key, cl_object values);
extern ECL_API cl_object si_ecase_error(cl_object value, cl_object values);
extern ECL_API cl_object si_etypecase_error(cl_object value, cl_object type);
extern ECL_API cl_object si_ecase_error(cl_object value, cl_object values) ecl_attr_noreturn;
extern ECL_API cl_object si_etypecase_error(cl_object value, cl_object type) ecl_attr_noreturn;
extern ECL_API cl_object si_ctypecase_error(cl_object keyplace, cl_object value, cl_object type);
extern ECL_API cl_object si_do_check_type(cl_object value, cl_object type, cl_object type_string, cl_object place);