# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1051749381 0
# Node ID 3afa0d82e92e131ff4fc8f3f9ba4856bf0c4dd00
# Parent  a32b154ea162cb9a76f3a4cfcedcda1d1bd9816a
(CHECK): Wrap args in parenthesis.
(specbind): Fix doc: symbol = Qnil is not supported any more.

diff -r a32b154ea162 -r 3afa0d82e92e src/lisp.h
--- a/src/lisp.h	Thu May 01 00:22:31 2003 +0000
+++ b/src/lisp.h	Thu May 01 00:36:21 2003 +0000
@@ -60,9 +60,9 @@
 
 #ifdef ENABLE_CHECKING
 
-#define CHECK(check,msg) ((check || suppress_checking		\
+#define CHECK(check,msg) (((check) || suppress_checking		\
 			   ? (void) 0				\
-			   : die (msg, __FILE__, __LINE__)),	\
+			   : die ((msg), __FILE__, __LINE__)),	\
 			  0)
 
 /* Let's get some compile-time checking too.  */
@@ -335,7 +335,10 @@
 
 /* For integers known to be positive, XFASTINT provides fast retrieval
    and XSETFASTINT provides fast storage.  This takes advantage of the
-   fact that Lisp_Int is 0.  */
+   fact that Lisp_Int is 0.
+   Beware: XFASTINT applied to a non-positive integer or to something
+   else than an integer should return something that preserves all the
+   info that was in the Lisp_Object, because it is used in EQ.  */
 #define XFASTINT(a) ((a) + 0)
 #define XSETFASTINT(a, b) ((a) = (b))
 
@@ -1691,9 +1694,6 @@
 
    If func is non-zero, undoing this binding applies func to old_value;
       This implements record_unwind_protect.
-   If func is zero and symbol is nil, undoing this binding evaluates
-      the list of forms in old_value; this implements Lisp's unwind-protect
-      form.
 
    Otherwise, the element is a variable binding.