How to implement inheritance using lexical scoping?

(define (cls make-parent args)
	(let ([parent (make-parent ...)])
		(lambda (m)
			(cond (m)
				[]
				[]))))