From 8db10bab798f524dc5e7259509d65ee5edde3b52 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 25 Feb 2010 17:39:04 +0100 Subject: [PATCH] Removed unused FEtype_error_alist --- src/c/typespec.d | 10 ---------- src/h/external.h | 1 - 2 files changed, 11 deletions(-) diff --git a/src/c/typespec.d b/src/c/typespec.d index 14118658c..fc9272723 100644 --- a/src/c/typespec.d +++ b/src/c/typespec.d @@ -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) { diff --git a/src/h/external.h b/src/h/external.h index 1c5d8e1e0..39421f684 100755 --- a/src/h/external.h +++ b/src/h/external.h @@ -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;