From f0581652142774a345457600a60f569644772b23 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@juanjo-imac.local>
Date: Tue, 13 Apr 2010 11:22:46 +0200
Subject: [PATCH] GC now allows any number of arguments, ignoring them

---
 src/CHANGELOG        | 2 ++
 src/c/alloc_2.d      | 2 +-
 src/c/symbols_list.h | 2 +-
 src/h/external.h     | 2 +-
 4 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index 5c143d8d1..99e3b99f9 100755
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -6,6 +6,8 @@ ECL 10.4.2:
  - "fasb" is now a valid FASL file type, accepted by ECL even in absence of
    ASDF.
 
+ - EXT:GC ignores any argument passed to it.
+
 ECL 10.4.1:
 ===========
 
diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d
index 122fc764b..9f850c7b6 100755
--- a/src/c/alloc_2.d
+++ b/src/c/alloc_2.d
@@ -1295,7 +1295,7 @@ ecl_register_root(cl_object *p)
 }
 
 cl_object
-si_gc(cl_object area)
+si_gc(cl_narg narg, ...)
 {
 	const cl_env_ptr the_env = ecl_process_env();
 	ecl_disable_interrupts_env(the_env);
diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index a3729dae2..acc8e2a0e 100755
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -1456,7 +1456,7 @@ cl_symbols[] = {
 {SYS_ "C-ULONG-MAX", SI_CONSTANT, NULL, -1, OBJNULL}, /* See main.d */
 {SYS_ "C-ULONG-LONG-MAX",SI_CONSTANT,NULL,-1,OBJNULL}, /* See main.d */
 #ifdef GBC_BOEHM
-{SYS_ "GC", SI_ORDINARY, si_gc, 1, OBJNULL},
+{SYS_ "GC", SI_ORDINARY, si_gc, -1, OBJNULL},
 {SYS_ "GC-DUMP", SI_ORDINARY, si_gc_dump, 0, OBJNULL},
 #endif
 
diff --git a/src/h/external.h b/src/h/external.h
index 5bf3ff919..365e8e8fd 100755
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -254,7 +254,7 @@ extern ECL_API cl_object ecl_alloc_instance(cl_index slots);
 extern ECL_API cl_object ecl_cons(cl_object a, cl_object d);
 extern ECL_API cl_object ecl_list1(cl_object a);
 #ifdef GBC_BOEHM
-extern ECL_API cl_object si_gc(cl_object area);
+extern ECL_API cl_object si_gc(cl_narg narg, ...);
 extern ECL_API cl_object si_gc_dump(void);
 extern ECL_API cl_object si_gc_stats(cl_object enable);
 extern ECL_API void *ecl_alloc_unprotected(cl_index n);