From 51485df27dccfc08ee97d08c8489625177fdd66e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 Mar 2005 03:06:53 +0000 Subject: [PATCH] (Writing Emacs Primitives): Update `or' example. Update limit on # args of subr. --- lispref/internals.texi | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) diff --git a/lispref/internals.texi b/lispref/internals.texi index a4c641a40a8..5a83c82ff5f 100644 --- a/lispref/internals.texi +++ b/lispref/internals.texi @@ -477,28 +477,22 @@ usage: (or CONDITIONS ...) */) (args) Lisp_Object args; @{ - register Lisp_Object val; - Lisp_Object args_left; + register Lisp_Object val = Qnil; struct gcpro gcpro1; @end group @group - if (NILP (args)) - return Qnil; - - args_left = args; - GCPRO1 (args_left); + GCPRO1 (args); @end group @group - do + while (CONSP (args)) @{ - val = Feval (Fcar (args_left)); + val = Feval (XCAR (args)); if (!NILP (val)) - break; - args_left = Fcdr (args_left); + break; + args = XCDR (args); @} - while (!NILP (args_left)); @end group @group @@ -549,7 +543,7 @@ indicating a special form that receives unevaluated arguments, or @code{MANY}, indicating an unlimited number of evaluated arguments (the equivalent of @code{&rest}). Both @code{UNEVALLED} and @code{MANY} are macros. If @var{max} is a number, it may not be less than @var{min} and -it may not be greater than seven. +it may not be greater than eight. @item interactive This is an interactive specification, a string such as might be used as -- 2.39.2