From: Alexey D. <ade...@co...> - 2003-05-20 04:00:04
|
Christophe Rhodes <cs...@ca...> writes: > + (if (dsd-read-only dsd) > + (inits `(setf (%instance-ref ,object ',(dsd-index dsd)) ',value)) You probably want to use SB-KERNEL::SLOT-SETTER-LAMBDA-FORM (see SB-KERNEL::CREATE-STRUCTURE-CONSTRUCTOR). -- Regards, Alexey Dejneka "Alas, the spheres of truth are less transparent than those of illusion." -- L.E.J. Brouwer |