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

Correctly report if variables are bound or not in si_bds_val

Browse source 
For thread local bindings, ECL_NO_TL_BINDING is used to signal an
    unbound variable. Fixes error from #325.
This commit is contained in:
Marius Gerbershagen 2018-05-27 17:33:48 +02:00
parent 5de18683ac
commit 861e798cd3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/stacks.d
View file

@ -245,7 +245,7 @@ cl_object
si_bds_val(cl_object arg)
{
cl_object v = get_bds_ptr(arg)->value;
@(return ((v == OBJNULL)? ECL_UNBOUND : v));
@(return ((v == OBJNULL || v == ECL_NO_TL_BINDING)? ECL_UNBOUND : v));
}
#ifdef ecl_bds_bind