mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

Implement new error functions for array and vector types.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-03 09:35:06 +02:00
parent 535863ff57
commit 2dc460e7a5
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/typespec.d
View file

@ -93,6 +93,18 @@ FEtype_error_index(cl_object seq, cl_object ndx)
@':datum', ndx);
}
void
FEtype_error_array(cl_object v)
{
FEwrong_type_argument(@'array', v);
}
void
FEtype_error_vector(cl_object v)
{
FEwrong_type_argument(@'vector', v);
}
void
FEtype_error_string(cl_object s)
{

2
src/h/external.h
View file

@ -1605,6 +1605,8 @@ extern ECL_API void FEtype_error_sequence(cl_object x) /*__attribute__((noreturn
extern ECL_API void FEtype_error_instance(cl_object x) /*__attribute__((noreturn))*/;
extern ECL_API void FEcircular_list(cl_object x) /*__attribute__((noreturn))*/;
extern ECL_API void FEtype_error_index(cl_object seq, cl_object ndx) /*__attribute__((noreturn))*/;
extern ECL_API void FEtype_error_array(cl_object x) /*__attribute__((noreturn))*/;
extern ECL_API void FEtype_error_vector(cl_object x) /*__attribute__((noreturn))*/;
extern ECL_API void FEtype_error_string(cl_object x) /*__attribute__((noreturn))*/;
extern ECL_API void FEdivision_by_zero(cl_object x, cl_object y) /*__attribute__((noreturn))*/;
extern ECL_API cl_object ecl_type_error(cl_object function, const char *place, cl_object o, cl_object type);