diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/src/eval.c b/src/eval.c index 0f9e012b823..d6d62aa4afb 100644 --- a/src/eval.c +++ b/src/eval.c @@ -126,6 +126,7 @@ static Lisp_Object funcall_lambda (Lisp_Object, size_t, Lisp_Object *); static void unwind_to_catch (struct catchtag *, Lisp_Object) NO_RETURN; static int interactive_p (int); static Lisp_Object apply_lambda (Lisp_Object fun, Lisp_Object args); +INFUN (Ffetch_bytecode, 1); void init_eval_once (void) @@ -339,7 +340,7 @@ usage: (cond CLAUSES...) */) return val; } -DEFUN ("progn", Fprogn, Sprogn, 0, UNEVALLED, 0, +DEFUE ("progn", Fprogn, Sprogn, 0, UNEVALLED, 0, doc: /* Eval BODY forms sequentially and return value of last one. usage: (progn BODY...) */) (Lisp_Object args) @@ -504,7 +505,7 @@ usage: (function ARG) */) } -DEFUN ("interactive-p", Finteractive_p, Sinteractive_p, 0, 0, 0, +DEFUE ("interactive-p", Finteractive_p, Sinteractive_p, 0, 0, 0, doc: /* Return t if the containing function was run directly by user input. This means that the function was called with `call-interactively' \(which includes being called as the binding of a key) @@ -1310,7 +1311,7 @@ unwind_to_catch (struct catchtag *catch, Lisp_Object value) _longjmp (catch->jmp, 1); } -DEFUN ("throw", Fthrow, Sthrow, 2, 2, 0, +DEFUE ("throw", Fthrow, Sthrow, 2, 2, 0, doc: /* Throw to the catch for TAG and return VALUE from it. Both TAG and VALUE are evalled. */) (register Lisp_Object tag, Lisp_Object value) @@ -1648,7 +1649,7 @@ static Lisp_Object find_handler_clause (Lisp_Object, Lisp_Object, static int maybe_call_debugger (Lisp_Object conditions, Lisp_Object sig, Lisp_Object data); -DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0, +DEFUE ("signal", Fsignal, Ssignal, 2, 2, 0, doc: /* Signal an error. Args are ERROR-SYMBOL and associated DATA. This function does not return. @@ -2032,7 +2033,7 @@ error (const char *m, ...) va_end (ap); } -DEFUN ("commandp", Fcommandp, Scommandp, 1, 2, 0, +DEFUE ("commandp", Fcommandp, Scommandp, 1, 2, 0, doc: /* Non-nil if FUNCTION makes provisions for interactive calling. This means it contains a description for how to read arguments to give it. The value is nil for an invalid function or a symbol with no function @@ -2213,7 +2214,7 @@ do_autoload (Lisp_Object fundef, Lisp_Object funname) } -DEFUN ("eval", Feval, Seval, 1, 2, 0, +DEFUE ("eval", Feval, Seval, 1, 2, 0, doc: /* Evaluate FORM and return its value. If LEXICAL is t, evaluate using lexical scoping. */) (Lisp_Object form, Lisp_Object lexical) @@ -2449,7 +2450,7 @@ eval_sub (Lisp_Object form) return val; } -DEFUN ("apply", Fapply, Sapply, 2, MANY, 0, +DEFUE ("apply", Fapply, Sapply, 2, MANY, 0, doc: /* Call FUNCTION with our remaining args, using our last arg as list of args. Then return the value FUNCTION returns. Thus, (apply '+ 1 2 '(3 4)) returns 10. @@ -2544,7 +2545,7 @@ funcall_nil (size_t nargs, Lisp_Object *args) return Qnil; } -DEFUN ("run-hooks", Frun_hooks, Srun_hooks, 0, MANY, 0, +DEFUE ("run-hooks", Frun_hooks, Srun_hooks, 0, MANY, 0, doc: /* Run each hook in HOOKS. Each argument should be a symbol, a hook variable. These symbols are processed in the order specified. @@ -2573,7 +2574,7 @@ usage: (run-hooks &rest HOOKS) */) return Qnil; } -DEFUN ("run-hook-with-args", Frun_hook_with_args, +DEFUE ("run-hook-with-args", Frun_hook_with_args, Srun_hook_with_args, 1, MANY, 0, doc: /* Run HOOK with the specified arguments ARGS. HOOK should be a symbol, a hook variable. If HOOK has a non-nil @@ -2619,7 +2620,7 @@ funcall_not (size_t nargs, Lisp_Object *args) return NILP (Ffuncall (nargs, args)) ? Qt : Qnil; } -DEFUN ("run-hook-with-args-until-failure", Frun_hook_with_args_until_failure, +DEFUE ("run-hook-with-args-until-failure", Frun_hook_with_args_until_failure, Srun_hook_with_args_until_failure, 1, MANY, 0, doc: /* Run HOOK with the specified arguments ARGS. HOOK should be a symbol, a hook variable. If HOOK has a non-nil @@ -2906,7 +2907,7 @@ call7 (Lisp_Object fn, Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3, /* The caller should GCPRO all the elements of ARGS. */ -DEFUN ("functionp", Ffunctionp, Sfunctionp, 1, 1, 0, +DEFUE ("functionp", Ffunctionp, Sfunctionp, 1, 1, 0, doc: /* Non-nil if OBJECT is a function. */) (Lisp_Object object) { @@ -2939,7 +2940,7 @@ DEFUN ("functionp", Ffunctionp, Sfunctionp, 1, 1, 0, return Qnil; } -DEFUN ("funcall", Ffuncall, Sfuncall, 1, MANY, 0, +DEFUE ("funcall", Ffuncall, Sfuncall, 1, MANY, 0, doc: /* Call first argument as a function, passing remaining arguments to it. Return the value that function returns. Thus, (funcall 'cons 'x 'y) returns (x . y). @@ -3647,8 +3648,6 @@ mark_backtrace (void) } } -EXFUN (Funintern, 2); - void syms_of_eval (void) { |