mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove unused function FEtype_error_stream

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-27 09:49:57 +01:00
parent 86c211a6a1
commit 3d5a6aed3d
3 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -3987,7 +3987,7 @@ stream_dispatch_table(cl_object strm)
}
#endif
if (type_of(strm) != t_stream)
FEtype_error_stream(strm);
FEwrong_type_argument(@[stream], strm);
return (const struct ecl_file_ops *)strm->stream.ops;
}

6
src/c/typespec.d
View file

@ -64,12 +64,6 @@ FEtype_error_array(cl_object v)
FEwrong_type_argument(@[array], v);
}
void
FEtype_error_stream(cl_object strm)
{
FEwrong_type_argument(@[stream], strm);
}
void
FEtype_error_sequence(cl_object x) {
FEwrong_type_argument(@[sequence], x);

1
src/h/external.h
View file

@ -1692,7 +1692,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_stream(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEtype_error_sequence(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEcircular_list(cl_object x) ecl_attr_noreturn;
extern ECL_API void FEtype_error_index(cl_object seq, cl_object ndx) ecl_attr_noreturn;