Mercurial > emacs
changeset 7206:b6aa3d718d8a
(Ffset, Ffmakunbound): Signal an error if SYM is nil or t.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 29 Apr 1994 23:21:37 +0000 |
| parents | a5199564772e |
| children | c83b161fe62c |
| files | src/data.c |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/data.c Fri Apr 29 23:16:43 1994 +0000 +++ b/src/data.c Fri Apr 29 23:21:37 1994 +0000 @@ -506,6 +506,8 @@ register Lisp_Object sym; { CHECK_SYMBOL (sym, 0); + if (NILP (sym) || EQ (sym, Qt)) + return Fsignal (Qsetting_constant, Fcons (sym, Qnil)); XSYMBOL (sym)->function = Qunbound; return sym; } @@ -546,7 +548,8 @@ register Lisp_Object sym, newdef; { CHECK_SYMBOL (sym, 0); - + if (NILP (sym) || EQ (sym, Qt)) + return Fsignal (Qsetting_constant, Fcons (sym, Qnil)); if (!NILP (Vautoload_queue) && !EQ (XSYMBOL (sym)->function, Qunbound)) Vautoload_queue = Fcons (Fcons (sym, XSYMBOL (sym)->function), Vautoload_queue);