From 031cbcfbd169f90c6507efef5bb72c38863aa101 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 15 Dec 2012 22:23:14 +0100 Subject: [PATCH] ecase_error and etypecase_error tagged as no-return functions --- src/h/external.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/h/external.h b/src/h/external.h index 9368b3ab8..5329e0830 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -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);