(BINDING_STACK_SIZE): New macro.

diff --git a/src/lisp.h b/src/lisp.h
index 9e0a769d55c50612ed2678c7e1137c940ce6b816..4ea5dce5ddf0e1299c7d63836f89e29db31f87a1 100644 (file)
--- 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
   {