[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Problem with <each-subclass-slot-info>



Functional Developer has <each-subclass> so you could try that. Or a
workaround is:

define class <one> (<object>)
  each-subclass slot abcd;
end;

Is equivalent to:

define class <one> (<object>)
end;

define constant $abcd = make(<table>);

define method abcd(c :: <one>) => (o :: <object>)
  $abcd[c]
end;

define method abcd-setter(v :: <object>, c :: <one>) => (o :: <object>)
  $abcd[c] := v
end;

begin
  let a = make(<one>);
  a.abcd := 10;
  format-out("%s\n", a.abcd);
end;

Untested, but you hopefully get the idea.

Chris.