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 (EXT:PACKAGE-LOCK) return the promised value.

Browse source 
The (possibly invalid!) pack.locked was returned; for STRING inputs
the field aliased to "elttype", which was eg. 0xf for t_base_strings.
This commit is contained in:
Philipp Marek 2014-03-09 20:35:43 +01:00
parent e161690265
commit 77a267c7e4
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,8 +893,9 @@ cl_package_shadowing_symbols(cl_object p)
cl_object
si_package_lock(cl_object p, cl_object t)
{
bool previous = p->pack.locked;
bool previous;
p = si_coerce_to_package(p);
previous = p->pack.locked;
p->pack.locked = (t != ECL_NIL);
@(return (previous? ECL_T : ECL_NIL))
}