diff options
| author | Eli Zaretskii | 2004-06-12 10:32:44 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2004-06-12 10:32:44 +0000 |
| commit | 6992a868c3d642d0678be436366af0db17e93bd1 (patch) | |
| tree | 88a5014d4f751616687e522c0cb6c07ab9204af7 /src | |
| parent | cebe0988cac635c51031540fc173794c3db79a16 (diff) | |
| download | emacs-6992a868c3d642d0678be436366af0db17e93bd1.tar.gz emacs-6992a868c3d642d0678be436366af0db17e93bd1.zip | |
(Fdefun): Signal an error if NAME is not a symbol.
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index e1da1def446..096755f9c77 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -617,6 +617,7 @@ usage: (defun NAME ARGLIST [DOCSTRING] BODY...) */) | |||
| 617 | register Lisp_Object defn; | 617 | register Lisp_Object defn; |
| 618 | 618 | ||
| 619 | fn_name = Fcar (args); | 619 | fn_name = Fcar (args); |
| 620 | CHECK_SYMBOL (fn_name); | ||
| 620 | defn = Fcons (Qlambda, Fcdr (args)); | 621 | defn = Fcons (Qlambda, Fcdr (args)); |
| 621 | if (!NILP (Vpurify_flag)) | 622 | if (!NILP (Vpurify_flag)) |
| 622 | defn = Fpurecopy (defn); | 623 | defn = Fpurecopy (defn); |