From 0dcf6bbfe5a11b4dcd8c01c37cd3ad082cc11b83 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 9 Jan 2006 09:16:05 +0000
Subject: [PATCH] Removed unused function.

---
 msvc/ecl-threads.def |  1 -
 msvc/ecl.def         |  1 -
 src/c/cmpaux.d       | 32 --------------------------------
 src/h/external.h     |  1 -
 4 files changed, 35 deletions(-)

diff --git a/msvc/ecl-threads.def b/msvc/ecl-threads.def
index d6c9f2722..40dd13f73 100755
--- a/msvc/ecl-threads.def
+++ b/msvc/ecl-threads.def
@@ -167,7 +167,6 @@ EXPORTS
 	cl_go
 	cl_parse_key
 	cl_grab_rest_args
-	check_other_key
 
 	; compiler.c
 
diff --git a/msvc/ecl.def b/msvc/ecl.def
index 15e499534..cec70eb27 100644
--- a/msvc/ecl.def
+++ b/msvc/ecl.def
@@ -167,7 +167,6 @@ EXPORTS
 	cl_go
 	cl_parse_key
 	cl_grab_rest_args
-	check_other_key
 
 	; compiler.c
 
diff --git a/src/c/cmpaux.d b/src/c/cmpaux.d
index c2d36f15f..a516a149e 100644
--- a/src/c/cmpaux.d
+++ b/src/c/cmpaux.d
@@ -258,35 +258,3 @@ cl_parse_key(
        supplied_allow_other_keys == OBJNULL))
     FEprogram_error("Unknown keyword ~S", 1, unknown_keyword);
 }
-
-/* Used in compiled macros */
-void
-check_other_key(cl_object l, int n, ...)
-{
-	cl_object other_key = OBJNULL;
-	cl_object k;
-	int i;
-	bool allow_other_keys = FALSE;
-
-	for (;  !endp(l);  l = CDDR(l)) {
-		k = CAR(l);
-		if (!keywordp(k))
-			FEprogram_error("~S is not a keyword.", 1, k);
-		if (endp(CDR(l)))
-			FEprogram_error("Odd number of arguments for keywords.",0);
-		if (k == @':allow-other-keys' && CADR(l) != Cnil) {
-			allow_other_keys = TRUE;
-		} else {
-			va_list ktab;
-			va_start(ktab, n); /* extracting arguments */
-			for (i = 0;  i < n;  i++)
-				if (va_arg(ktab,cl_object) == k)
-					break;
-			va_end(ktab);
-			if (i >= n) other_key = k;
-		}
-	}
-	if (other_key != OBJNULL && !allow_other_keys)
-		FEprogram_error("The keyword ~S is not allowed or is duplicated.",
-				1, other_key);
-}
diff --git a/src/h/external.h b/src/h/external.h
index e9da8f5e0..b345845c9 100644
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -392,7 +392,6 @@ extern void cl_return_from(cl_object block_id, cl_object block_name) /*__attribu
 extern void cl_go(cl_object tag_id, cl_object label) /*__attribute__((noreturn))*/;
 extern void cl_parse_key(cl_va_list args, int nkey, cl_object *keys, cl_object *vars, cl_object *rest, bool allow_other_keys);
 extern cl_object cl_grab_rest_args(cl_va_list args);
-extern void check_other_key(cl_object l, int n, ...);
 
 /* compiler.c */