aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/src/eval.c b/src/eval.c
index 875b4498a61..71a0b111849 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -62,7 +62,7 @@ Lisp_Object Qinhibit_quit, Vinhibit_quit, Vquit_flag;
62Lisp_Object Qand_rest, Qand_optional; 62Lisp_Object Qand_rest, Qand_optional;
63Lisp_Object Qdebug_on_error; 63Lisp_Object Qdebug_on_error;
64Lisp_Object Qdeclare; 64Lisp_Object Qdeclare;
65Lisp_Object Qcurry, Qunevalled; 65Lisp_Object Qcurry;
66Lisp_Object Qinternal_interpreter_environment, Qclosure; 66Lisp_Object Qinternal_interpreter_environment, Qclosure;
67 67
68Lisp_Object Qdebug; 68Lisp_Object Qdebug;
@@ -3109,7 +3109,7 @@ DEFUN ("functionp", Ffunctionp, Sfunctionp, 1, 1, 0,
3109 } 3109 }
3110 3110
3111 if (SUBRP (object)) 3111 if (SUBRP (object))
3112 return (XSUBR (object)->max_args != Qunevalled) ? Qt : Qnil; 3112 return (XSUBR (object)->max_args != UNEVALLED) ? Qt : Qnil;
3113 else if (FUNVECP (object)) 3113 else if (FUNVECP (object))
3114 return Qt; 3114 return Qt;
3115 else if (CONSP (object)) 3115 else if (CONSP (object))
@@ -4002,9 +4002,6 @@ before making `inhibit-quit' nil. */);
4002 Qcurry = intern_c_string ("curry"); 4002 Qcurry = intern_c_string ("curry");
4003 staticpro (&Qcurry); 4003 staticpro (&Qcurry);
4004 4004
4005 Qunevalled = intern_c_string ("unevalled");
4006 staticpro (&Qunevalled);
4007
4008 Qdebug = intern_c_string ("debug"); 4005 Qdebug = intern_c_string ("debug");
4009 staticpro (&Qdebug); 4006 staticpro (&Qdebug);
4010 4007