mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-26 14:32:11 -08:00
Code Issues Projects Releases Packages Wiki Activity

SI:PACKAGE-LOCK did not return the last value.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-09 22:41:27 +02:00
parent 831bf2488b
commit d905fb69c1
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/package.d
View file

@ -893,9 +893,10 @@ cl_package_shadowing_symbols(cl_object p)
cl_object
si_package_lock(cl_object p, cl_object t)
{
bool previous = p->pack.locked;
p = si_coerce_to_package(p);
p->pack.locked = (t != ECL_NIL);
@(return p)
@(return (previous? ECL_T : ECL_NIL))
}
cl_object