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

Removed unused FEtype_error_alist

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-25 17:39:04 +01:00
parent 6dac1d197f
commit 8db10bab79
2 changed files with 0 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/typespec.d
View file

@ -36,16 +36,6 @@ FEtype_error_proper_list(cl_object x) {
@':datum', x);
}
void
FEtype_error_alist(cl_object x)
{
cl_error(9, @'simple-type-error', @':format-control',
make_constant_base_string("Not a valid association list ~D"),
@':format-arguments', cl_list(1, x),
@':expected-type', @'list',
@':datum', x);
}
void
FEcircular_list(cl_object x)
{

1
src/h/external.h
View file

@ -1700,7 +1700,6 @@ extern ECL_API cl_object cl_type_of(cl_object x);
extern ECL_API void FEtype_error_cons(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEtype_error_list(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEtype_error_proper_list(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEtype_error_alist(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEtype_error_stream(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEtype_error_sequence(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEtype_error_instance(cl_object x) ecl_attr_noreturn;