Re: Best method.

From: Ken Anderson <kanderso_at_bbn.com>
Date: Sat, 06 Jan 1996 11:22:17 +0000

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>
Received on Sat Jan 06 1996 - 17:25:25 CET