Function: find-class-btree

Source

(defun find-class-btree (class) 
  (let* ((class-name (^class-name class)))
    (get-from-root class-name)))