From 861e798cd31ac08fead521b04531d4af368646b5 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sun, 27 May 2018 17:33:48 +0200
Subject: [PATCH] Correctly report if variables are bound or not in si_bds_val

    For thread local bindings, ECL_NO_TL_BINDING is used to signal an
    unbound variable. Fixes error from #325.
---
 src/c/stacks.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/stacks.d b/src/c/stacks.d
index be433e698..42c06a814 100644
--- a/src/c/stacks.d
+++ b/src/c/stacks.d
@@ -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