class ClassList

pri next : ClassList;

pri ClInfo : ClassInfo;

meth SetNext =^ ( val n: ClassList

next:= n;

)

end

meth GetNext =^ ( res n: ClassList

n:= next;

)

end

meth SetClInfo =^ ( val c: ClassInfo

ClInfo:= c;

)

end

meth GetClInfo =^ ( res c: ClassInfo

n:= ClInfo;

)

end

end