derive.clj

(ns test-app.core)

(def h (atom (make-hierarchy)))

(swap! h derive ::square ::shape)

(swap! h derive ::red-square ::square)

(def one (isa? @h ::red-square ::shape)) ;; => true

(swap! h underive ::red-square ::shape)

(def two (isa? @h ::red-square ::shape)) ;; => true (shape isn't parent of red-squares)

(swap! h underive ::red-square ::square)

(def three (isa? @h ::red-square ::shape)) ;; => false

[one two three]