id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc	difficulty
123	tinyclos primitive class extension procedures are buggy	Tony Sidaway	Tony Sidaway	"Chicken's implementation of tinyclos has an excellent facility to extend the primitive classes recognised by tinyclos.

The code is basically sound but there are bugs.  For instance:

csi -R srfi-19 -R tinyclos
(define d (make-date 0 1 10 13 20 11 2009 0))
(date? d)
===> #t
(define <date> (new-structure-class ""date"" 'date))
(class-name (class-of d))
===> ""structure""

The correct result is ""date"".

This is because of a bug in the procedure structure-class-of, which is called by class-of when a primitive object has been found to be a record.  The procedure uses the eq? operator to test the actual object instead of looking at the object's structure tag (#sys#slot obj 0)."	defect	closed	major		extensions	4.2.x	fixed	tinyclos primitive