From 05950d2eb9fe7edbec04836ac0d8d9b2fd4bf68f Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 18 Nov 2002 12:59:19 +0000
Subject: [PATCH] ecl_boot=1 is required before init_CLOS() so that
 clear_compiler_properties() works.

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

diff --git a/src/c/init.d b/src/c/init.d
index 13a9e0625..a4df87bf6 100644
--- a/src/c/init.d
+++ b/src/c/init.d
@@ -109,9 +109,11 @@ init_lisp(void)
 #ifdef RUNTIME
 	SYM_VAL(@'*features*') = CONS(make_keyword("RUNTIME"), SYM_VAL(@'*features*'));
 #endif
+	/* This has to come before init_LSP/CLOS, because we need
+	 * clear_compiler_properties() to work in init_CLOS(). */
+	ecl_booted = 1;
+
 	lex_env = Cnil;
 	init_LSP();
 	init_CLOS();
-
-	ecl_booted = 1;
 }