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

Make cl_core.libraries vector extendable.

Browse source
This commit is contained in:
goffioul 2005-10-13 10:28:13 +00:00
parent e1d3382279
commit 45c74701d4
3 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/cinit.d
View file

@ -28,6 +28,12 @@ cl_vector_push(cl_object elt, cl_object vector)
return funcall(2, @'VECTOR-PUSH', vector, elt);
}
extern cl_object
cl_vector_push_extend(cl_narg narg, cl_object elt, cl_object vector, ...)
{
return funcall(2, @'VECTOR-PUSH-EXTEND', vector, elt);
}
static cl_object si_simple_toplevel ()
{
cl_object sentence;

2
src/c/load.d
View file

@ -73,7 +73,7 @@ ecl_library_open(cl_object filename) {
/* INV: We can modify "libraries" in a multithread
environment because we have already taken the
+load-compile-lock+ */
cl_vector_push(block, libraries);
cl_vector_push_extend(2, block, libraries);
return block;
}

2
src/c/main.d
View file

@ -291,7 +291,7 @@ cl_boot(int argc, char **argv)
cl_core.gentemp_counter = MAKE_FIXNUM(0);
cl_core.libraries = si_make_vector(@'t', MAKE_FIXNUM(0),
@'nil', MAKE_FIXNUM(0),
@'t', MAKE_FIXNUM(0),
@'nil', @'nil');
ECL_SET(@'si::c-int-max', make_integer(INT_MAX));