From 400b22aac5fc227b8c141baa5542b6aaf0eaecf1 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sat, 28 Jun 2008 18:14:36 +0000
Subject: [PATCH] Remove unused field in cl_env

---
 src/c/main.d     | 5 -----
 src/h/external.h | 3 ---
 2 files changed, 8 deletions(-)

diff --git a/src/c/main.d b/src/c/main.d
index efd968920..29ae88bff 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -71,11 +71,6 @@ ecl_init_env(struct cl_env_struct *env)
 	env->stack_size = 0;
 	cl_stack_set_size(16*LISP_PAGESIZE);
 
-	env->funcall_frame.t = t_frame;
-	env->funcall_frame.stack = 0;
-	env->funcall_frame.bottom =
-	env->funcall_frame.top = env->values;
-
 #if !defined(ECL_CMU_FORMAT)
 	env->print_pretty = FALSE;
 	env->queue = cl_alloc_atomic(ECL_PPRINT_QUEUE_SIZE * sizeof(short));
diff --git a/src/h/external.h b/src/h/external.h
index 4f0c8a535..f2a9de7bb 100644
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -63,9 +63,6 @@ struct cl_env_struct {
 	cl_index nvalues;
 	cl_object values[ECL_MULTIPLE_VALUES_LIMIT];
 
-	/* Stack frame used by cl_funcall() */
-	struct ecl_stack_frame funcall_frame;
-
 	/* Private variables used by different parts of ECL: */
 	/* ... the reader ... */
 	cl_object string_pool;