(defclass tree-lisp-store (g-object tree-model)
((columns-getters :initform (make-array 0 :adjustable t :fill-pointer t) :reader tree-lisp-store-getters)
(columns-types :initform (make-array 0 :adjustable t :fill-pointer t) :reader tree-lisp-store-types)
(root :initform (make-tree-node) :reader tree-lisp-store-root)
(id-map :initform (make-hash-table) :reader tree-lisp-store-id-map)
(defclass tree-lisp-store (g-object tree-model)
((columns-getters :initform (make-array 0 :adjustable t :fill-pointer t) :reader tree-lisp-store-getters)
(columns-types :initform (make-array 0 :adjustable t :fill-pointer t) :reader tree-lisp-store-types)
(root :initform (make-tree-node) :reader tree-lisp-store-root)
(id-map :initform (make-hash-table) :reader tree-lisp-store-id-map)