mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-19 05:30:23 -08:00
Code Issues Projects Releases Packages Wiki Activity

Allow MAKE-PACKAGE to rename a package that had been implicitely defined while reading a binary

Browse source
This commit is contained in:
jgarcia 2007-08-02 13:33:07 +00:00
parent b10f5358ba
commit ce3c653161
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/package.d
View file

@ -138,7 +138,6 @@ ecl_make_package(cl_object name, cl_object nicknames, cl_object use_list)
x = cl_alloc_object(t_package);
x->pack.internal = make_package_hashtable();
x->pack.external = make_package_hashtable();
x->pack.name = name;
#ifdef ECL_THREADS
#if defined(_MSC_VER) || defined(mingw32)
x->pack.lock = CreateMutex(NULL, FALSE, NULL);
@ -153,6 +152,7 @@ ecl_make_package(cl_object name, cl_object nicknames, cl_object use_list)
#endif /* _MSC_VER */
#endif
INTERN:
x->pack.name = name;
x->pack.nicknames = Cnil;
x->pack.shadowings = Cnil;
x->pack.uses = Cnil;