1 files changed, 2 insertions, 0 deletions

diff --git a/src/lisp.h b/src/lisp.h
index 9e0a769d55c..4ea5dce5ddf 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1506,6 +1506,8 @@ extern struct specbinding *specpdl;
 extern struct specbinding *specpdl_ptr;
 extern int specpdl_size;
 
+#define BINDING_STACK_SIZE()    (specpdl_ptr - specpdl)
+
 /* Everything needed to describe an active condition case.  */
 struct handler
   {