ancestors

;; make up a hierarchy a beagle is a sporting breed is a dog is a quadraped is an 
;; animal

user=> (derive ::quadruped ::animal)
nil
user=> (derive ::dog ::quadruped)
nil
user=> (derive ::sporting_breed ::dog)
nil
user=> (derive ::beagle ::sporting_breed)
nil
user=> (ancestors ::beagle)
#{:user/dog :user/sporting_breed :user/animal :user/quadruped}
user=>

;; use ancestors to show which classes ArrayList derives from and which
;; interfaces it implements

user=> (ancestors java.util.ArrayList)
#{java.util.Collection java.util.AbstractList java.io.Serializable java.lang.Cloneable java.util.List java.lang.Object java.util.AbstractCollection java.util.RandomAccess java.lang.Iterable}
user=>

;; use ancestors in defrecords to show which defprotocols implements
user=> (defprotocol Fly
           (fly [this]))

user=> (defrecord Bird [name] Fly
           (fly [this] (str (:name this) " flies....")))

user=> (ancestors Bird)
;; #{clojure.lang.IPersistentCollection 
;;   user.Fly 
;;   clojure.lang.IHashEq clojure.lang.ILookup 
;;   java.util.Map java.lang.Iterable 
;;   java.io.Serializable 
;;   java.lang.Object 
;;   clojure.lang.IMeta 
;;   clojure.lang.Seqable 
;;   clojure.lang.IRecord 
;;   clojure.lang.IObj 
;;   clojure.lang.Associative 
;;   clojure.lang.Counted 
;;   clojure.lang.IKeywordLookup 
;;   clojure.lang.IPersistentMap}