Skip to content
  • rtoy's avatar
    Make CMUCL signal a cerror if we try to redefine a slot accessor. If · bd3d965b
    rtoy authored
    continued, the accessor is redefined.  Previously, a warning was
    printed and the structure was (mostly) undefined.
    
    compiler/proclaim.lisp:
    o Add new function NOTE-IF-ACCESSOR to check if we're redefining a
      slot accessor.  If so, signal a cerror, and redefine if continued.
    o Adjust DEFINE-FUNCTION-NAME to call NOTE-IF-ACCESSOR.
    
    compiler/main.lisp:
    o Make COMPILE-FIX-FUNCTION-NAME call NOTE-IF-ACCESSOR to catch
      attempts to redefine a slot-accessor.
    
    code/macros.lisp:
    o Move call to C::DEFINE-FUNCTION-NAME to the top of C::%%DEFUN before
      we set the fdefinition.   This allows us to give up before modifying
      anything if we choose not to redefine the slot accessor.
    bd3d965b