Re: Best method.

From: Erick Gallesio <eg_at_kaolin.unice.fr>
Date: Mon, 08 Jan 1996 09:28:13 +0000

> Ken Anderson writes
> something like this might be what you want:
>
> (define (isa? c o) (is-a? o c))
>
> STk> (macro-expand '(is-a? x y))
> (and (member y (class-precedence-list (class-of x))) #t)
> STk>

Oe even simpler
   (define isa? is-a?)
since macro are kind of first class.

                -- Erick
Received on Mon Jan 08 1996 - 09:28:18 CET