!(load 'colorslib.l)
!(InitClasses)
(dfcolors)

(DefClass 'TEST '() '((A 1) (B 1) (C 1)) '((AA 1) (BB 1) (CC 1))
      '(
	(M1 (lambda (&pu &pr)
		(print 'METHOD1)
		(atab pu) (atab pr)
		(print B)
		(print AA)
	))
	(M2 (lambda (&pu &pr &l)
		(print 'METHOD2)
		(atab pr)
		(setql AA (car l))
		(setql BB (car l))
		(setql CC (car l))
	))
       )
)

(New 'TEST 't)
!(print t)
(print (t A))
(t A 2)
(print (t A))
(t A KKK)
(print (t A))
(t (M1))
(t (M2 10))

(t (M1))
(exit)

