Changeset 14325


Ignore:
Timestamp:
Oct 5, 2010, 2:59:00 AM (9 years ago)
Author:
gb
Message:

If DEFUN is used to redefine a macro, just WARN instead of CERRORing
(Procedural redefinition still CERRORs.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-def.lisp

    r13067 r14325  
    105105      (dbg named-fn))
    106106  (record-source-file name 'function)
    107   (if (not (%defun-encapsulated-maybe name named-fn))
     107  (when (not (%defun-encapsulated-maybe name named-fn))
     108    (when (and (symbolp name) (macro-function name nil))
     109      (warn "The macro ~s is being redefined as a function." name)
     110      (fmakunbound name))
    108111    (fset name named-fn))
    109112  (set-function-info name info)
Note: See TracChangeset for help on using the changeset viewer.