What is the class pattern with private members?

(define (cls args)
	(let ([priv_1 exp_1]
				[...])
		(lambda (m)
			(case (m)
				[]
				[]))))