chickadee » coops » subclass?

subclass? CLASS1 CLASS2procedure

Returns #t if CLASS1 is equal to CLASS2 or if it is a subclass of CLASS2 or #f otherwise.