From 89d99229301775006bfda99f068a55f497cb427c Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sun, 3 Jun 2007 12:55:19 +0000
Subject: [PATCH] Missing return value in cl_boot

---
 src/c/main.d | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/c/main.d b/src/c/main.d
index 4a8ed48b5..d4ef51077 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -174,7 +174,7 @@ cl_boot(int argc, char **argv)
 			/* We have called cl_shutdown and want to use ECL again. */
 			ecl_booted = 1;
 		}
-		return;
+		return 1;
 	}
 
 #if !defined(GBC_BOEHM)
@@ -389,7 +389,7 @@ cl_boot(int argc, char **argv)
 	aux = cl_list(
 #ifdef ENABLE_DLOPEN
 		7,CONS(make_constant_base_string("fas"), @'si::load-binary'),
-		CONS(make_constant_base_string("fasl"), @'si::load-binary',)
+		CONS(make_constant_base_string("fasl"), @'si::load-binary',),
 #else
 		5,
 #endif