diff -dur gcl-2.6.8.ORIG/o/bind.c gcl-2.6.8/o/bind.c
--- gcl-2.6.8.ORIG/o/bind.c 2006-06-21 14:03:05.000000000 -0600
+++ gcl-2.6.8/o/bind.c 2009-08-11 14:11:56.982474159 -0600
@@ -708,7 +708,7 @@
#define NOT_KEYWORD 1
void
-parse_key(object *base, bool rest, bool allow_other_keys, register int n, ...)
+parse_key(object *base, bool rest, bool allow_other_keys, int n, ...)
{
object temporary;
va_list ap;
diff -dur gcl-2.6.8.ORIG/o/external_funs.h gcl-2.6.8/o/external_funs.h
--- gcl-2.6.8.ORIG/o/external_funs.h 2003-08-29 14:41:59.000000000 -0600
+++ gcl-2.6.8/o/external_funs.h 2009-08-11 14:17:35.000473249 -0600
@@ -167,8 +167,8 @@
extern object find_special GPR((object body, struct bind_temp *start, struct bind_temp *end));;
extern object let_bind GPR((object body, struct bind_temp *start, struct bind_temp *end));;
extern object letA_bind GPR((object body, struct bind_temp *start, struct bind_temp *end));;
-extern int parse_key GPR((object *base, bool rest, bool allow_other_keys, register int n, int __builtin_va_alist));;
-extern int check_other_key GPR((object l, int n, int __builtin_va_alist));;
+extern int parse_key GPR((object *base, bool rest, bool allow_other_keys, int n, ...));;
+extern int check_other_key GPR((object l, int n, ...));;
extern int parse_key_new GPR((int n, object *base, struct key *keys, ...));;
extern int parse_key_rest GPR((object rest, int n, object *base, struct key *keys, ...));;
extern int set_key_struct GPR((struct key *ks, object data));;
@@ -380,7 +380,6 @@
extern int not_a_variable GPR((int obj));;
extern int illegal_index GPR((object x, object i));;
extern int Lerror GPR((void));;
-extern object LVerror GPR((int __builtin_va_alist));;
extern int Lcerror GPR((void));;
extern int vfun_wrong_number_of_args GPR((object x));;
extern int init_error GPR((void));;
@@ -415,9 +414,6 @@
extern object ifuncall2 GPR((object fun, object arg1, object arg2));;
extern object ifuncall3 GPR((object fun, object arg1, object arg2, object arg3));;
extern int funcall_with_catcher GPR((object fname, object fun));;
-extern object fcalln_cclosure GPR((...));;
-extern object fcalln_general GPR((...));;
-extern object fcalln_vfun GPR((va_list vl));;
-extern object fcalln GPR((int __builtin_va_alist));;
-extern object funcall_cfun GPR((funcvoid fn, int n, int __builtin_va_alist));;
+extern object fcalln GPR((object first, ...));;
+extern object funcall_cfun GPR((funcvoid fn, int n, ...));;
extern int init_eval GPR((void));;