Changeset 16649 for trunk/source/lib/macros.lisp

Timestamp:

Dec 3, 2015, 9:56:50 PM (5 years ago)

Author:

rme

Message:

Make defun complain if the user attempts to use NIL as a function name.
Closes ticket:613, ticket:1101. (And see ticket:1125 too.)

File:

• trunk/source/lib/macros.lisp (modified) (1 diff)

trunk/source/lib/macros.lisp

@@ -694 +694 @@
 (defmacro defun (spec args &body body &environment env &aux global-name inline-spec)
   "Define a function at top level."
+  (when (null spec)
+    (signal-program-error "Using ~s as a function name is silly." nil))
   (validate-function-name spec)
   (setq args (require-type args 'list))