From 6cbe2e289ac51f1fd477ae32322d12a015026c8b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 1 May 2003 00:36:21 +0000 Subject: [PATCH] (CHECK): Wrap args in parenthesis. (specbind): Fix doc: symbol = Qnil is not supported any more. --- src/lisp.h | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/lisp.h b/src/lisp.h index 1b1d2fd572e..aa91a2b892e 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -60,9 +60,9 @@ extern void die P_((const char *, const char *, int)); #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 @@ enum pvec_type /* 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 @@ extern void defvar_kboard P_ ((char *, int)); 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. -- 2.11.4.GIT