# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 974316275 0
# Node ID 027d4bc2e846961235afb9af5fb8cd3089db71b9
# Parent  5f71cb83e287ed59adf7c192d7e25c982936f773
(BINDING_STACK_SIZE): New macro.

diff -r 5f71cb83e287 -r 027d4bc2e846 src/lisp.h
--- a/src/lisp.h	Wed Nov 15 19:22:06 2000 +0000
+++ b/src/lisp.h	Wed Nov 15 19:24:35 2000 +0000
@@ -1506,6 +1506,8 @@
 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
   {