Common Lisp Object System [L1 ]
A flexible OO system for Lisp. XOTcl is probably the nearest equivalent for Tcl.
See also CASTE.