Changeset 16649


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r16532 r16649  
    694694(defmacro defun (spec args &body body &environment env &aux global-name inline-spec)
    695695  "Define a function at top level."
     696  (when (null spec)
     697    (signal-program-error "Using ~s as a function name is silly." nil))
    696698  (validate-function-name spec)
    697699  (setq args (require-type args 'list))
Note: See TracChangeset for help on using the changeset viewer.