middleclass：为属性添加 getter-setter 支持

我正在尝试为属性声明添加自动支持，以便为类生成自动生成的 getter 和 setter。我使用 middleclass 库作为类的基础。我定义了一个根类来处理属性创建。然而，在测试中，只有 root 类的直接子类正常工作。其他子类会在 middleclass 代码的深处抛出“堆栈溢出”错误（ [string "local middleclass = {..."]:82: stack overflow）。

我的代码如下:

local CBaseObject=class('CObjectBase');
function CBaseObject:initialize()
    self._init=true;
end;
function CBaseObject:finalize()
    self._init=false;
end;
function CBaseObject:_getter_setter(v)
    return v;
end;
function CBaseObject:_gen_prop_cache()
    rawset(self,'_properties',rawget(self,'_properties') or {});
end;
function CBaseObject:__index(k)
    print('GET',k);
    self:_gen_prop_cache();
    local prop=self._properties[k];
    if prop~=nil
    then
        local getter=self[prop[2] or '_getter_setter'];
        return getter(self,prop[1]);
    else return nil;end;
end;
function CBaseObject:__newindex(k,v)
    print('ME',self.class.name);
    print('SET',k,v);
    self:_gen_prop_cache();
    local prop=self._properties[k];
    if prop==nil and self._init or prop
    then
        if prop==nil then prop={};self._properties[k]=prop;end;
        local vv=prop[1];
        if type(v)=='table' and #v<4
        then
            for i=1,3 do prop[i]=v[i];end;
        else
            prop[1]=v;
        end;
        local setter=self[prop[3] or '_getter_setter'];
        prop[1]=setter(self,prop[1],vv);
    else
        rawset(self,k,v);
    end;
end;

测试类:

local cls=CBaseObject:subclass('test');
function cls:initialize()
    self.class.super.initialize(self);
    self.health={1000,'_gethealth','_sethealth'};
    self.ammo=100;
    self:finalize();
end;
function cls:_sethealth(value,old)
    print('WRITE:',value,old);
    if value<0 then return old;else return value;end;
end;
function cls:_gethealth(value)
    print('READ:',value);
    return value/1000;
end;

local cls2=cls:subclass('test2');
function cls2:initialize()
    self.class.super.initialize(self);
    self.ammo=200;
    self:finalize();
end;
function cls2:_sethealth(value,old)
    print('WRITE_OVERRIDEN:',value,old);
    return value;
end;
local obj=cls2(); --将其更改为 cls() 以获得可运行的示例。
obj.health=100;
obj.health=-100;
print(obj.health,obj._properties.health[1]);
print(obj.ammo,obj._properties.ammo[1]);

我在 https://repl.it/languages/lua 上运行了我的代码。那么，我的做法是否正确？是否有可能以与所使用的库兼容的更简单的方式添加属性支持？或者我应该使用其他的，那么应该用什么呢？

编辑: 经过实验证明，构造函数 self.class.parent.<method>(<...>) 是错误的罪魁祸首。我将所有这样的出现都替换为实际的父类。这似乎是唯一的问题，之后代码开始无误运行。