From 3d5a6aed3d52cd16dae890594cd87e52a47bf67e Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 27 Feb 2010 09:49:57 +0100 Subject: [PATCH] Remove unused function FEtype_error_stream --- src/c/file.d | 2 +- src/c/typespec.d | 6 ------ src/h/external.h | 1 - 3 files changed, 1 insertion(+), 8 deletions(-) diff --git a/src/c/file.d b/src/c/file.d index edb5299d7..5eac897a7 100755 --- a/src/c/file.d +++ b/src/c/file.d @@ -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; } diff --git a/src/c/typespec.d b/src/c/typespec.d index a9c000fb3..bfa96c531 100644 --- a/src/c/typespec.d +++ b/src/c/typespec.d @@ -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); diff --git a/src/h/external.h b/src/h/external.h index 085528e77..ca132d148 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -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;