diff --git a/src/c/typespec.d b/src/c/typespec.d
index 37443e6e7..14118658c 100644
--- a/src/c/typespec.d
+++ b/src/c/typespec.d
@@ -22,11 +22,6 @@ FEtype_error_cons(cl_object x) {
 	FEwrong_type_argument(@'cons', x);
 }
 
-void
-FEtype_error_float(cl_object x) {
-	FEwrong_type_argument(@'float', x);
-}
-
 void
 FEtype_error_list(cl_object x) {
 	FEwrong_type_argument(@'list', x);
diff --git a/src/h/external.h b/src/h/external.h
index cebf0a977..1c5d8e1e0 100755
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -1698,7 +1698,6 @@ extern ECL_API void assert_type_proper_list(cl_object p);
 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_float(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;