martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(Ffunction, Fquote): Signal error if not 1 argument.

Browse Source
This commit is contained in:
Richard M. Stallman
2007-08-19 01:59:48 +00:00
parent 7e48dd527d
commit 1283140e1e
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/ChangeLog
View File

@@ -1,3 +1,7 @@
2007-08-19 Richard Stallman <rms@gnu.org>
* eval.c (Ffunction, Fquote): Signal error if not 1 argument.
2007-08-19 Andreas Schwab <schwab@suse.de>
* alloc.c (pure): Round PURESIZE up.

8
src/eval.c
View File

@@ -202,6 +202,8 @@ Lisp_Object Vmacro_declaration_function;
extern Lisp_Object Qrisky_local_variable;
extern Lisp_Object Qfunction;
static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*));
static void unwind_to_catch P_ ((struct catchtag *, Lisp_Object)) NO_RETURN;
@@ -539,7 +541,7 @@ usage: (setq [SYM VAL]...) */)
register Lisp_Object val, sym;
struct gcpro gcpro1;
if (NILP(args))
if (NILP (args))
return Qnil;
args_left = args;
@@ -564,6 +566,8 @@ usage: (quote ARG) */)
(args)
Lisp_Object args;
{
if (!NILP (Fcdr (args)))
xsignal2 (Qwrong_number_of_arguments, Qquote, Flength (args));
return Fcar (args);
}
@@ -575,6 +579,8 @@ usage: (function ARG) */)
(args)
Lisp_Object args;
{
if (!NILP (Fcdr (args)))
xsignal2 (Qwrong_number_of_arguments, Qfunction, Flength (args));
return Fcar (args);
}