Function: ensure-class-btree

Source

(defun ensure-class-btree (class) 
  (aif (find-class-btree class)
       it
       (add-to-root class-name (make-btree))))