HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cebe098
)
(Fdefun): Signal an error if NAME is not a symbol.
author
Eli Zaretskii
<eliz@gnu.org>
Sat, 12 Jun 2004 10:32:44 +0000
(10:32 +0000)
committer
Eli Zaretskii
<eliz@gnu.org>
Sat, 12 Jun 2004 10:32:44 +0000
(10:32 +0000)
src/eval.c
patch
|
blob
|
blame
|
history
diff --git
a/src/eval.c
b/src/eval.c
index
e1da1de
..
096755f
100644
(file)
--- a/
src/eval.c
+++ b/
src/eval.c
@@
-617,6
+617,7
@@
usage: (defun NAME ARGLIST [DOCSTRING] BODY...) */)
register Lisp_Object defn;
fn_name = Fcar (args);
+ CHECK_SYMBOL (fn_name);
defn = Fcons (Qlambda, Fcdr (args));
if (!NILP (Vpurify_flag))
defn = Fpurecopy (defn);