slot-definition-type 1.0

Hi,

I think I have found a bug in openmcl 1.0.

If I am defining my custom type like this:

    (deftype mytype () 'standard-object)

and a class that uses it:

    (defclass myclass () ((s :type mytype)))

this form

    (ccl:slot-definition-type (first (class-slots (find-class 'myclass))))

returns:

    ;; => STANDARD-OBJECT

Openmcl 0.14.3 as well as sbcl would return MYTYPE here.

I am not an accustomed bug reporter and new to this list,
please tell me, if you need anymore information.

Cheers,
     Kilian