Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • dtc's avatar
    004cedf2
    Revised fix for obtaining the structure slot accessor function given · 004cedf2
    dtc authored
    the defstruct-slot-descriptor which was broken for inherited slot as
    the dsd-accessor was set to Nil in this case. Rather than setting
    dsd-accessor to Nil for inherited slots, add a new function
    dsd-inherited-p to test if an accessor has been inherited, and always
    setup the dsd-accessor slot with the name of the accessor
    function. This allows the structure printer and inspect to easily
    obtain a slot accessor function.
    004cedf2
    History
    Revised fix for obtaining the structure slot accessor function given
    dtc authored
    the defstruct-slot-descriptor which was broken for inherited slot as
    the dsd-accessor was set to Nil in this case. Rather than setting
    dsd-accessor to Nil for inherited slots, add a new function
    dsd-inherited-p to test if an accessor has been inherited, and always
    setup the dsd-accessor slot with the name of the accessor
    function. This allows the structure printer and inspect to easily
    obtain a slot accessor function.