mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-04 16:30:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove unused field in cl_env

Browse source
This commit is contained in:
jjgarcia 2008-06-28 18:14:36 +00:00
parent 1813aa8e6c
commit 400b22aac5
2 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/main.d
View file

@ -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));

3
src/h/external.h
View file

@ -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;