Prototype-based object system for Common Lisp implemented by means of CLOS MOP