Function: find-instances

Documentation

Find all instances that belong to the class

Source

(defun find-instances (class)
  "Find all instances that belong to the class"
  (let* ((class-name (^class-name class))
	 (class-btree (get-from-root class-name))
	 (instances nil))
    (when class-btree (map-btree (fn (k v) (push v instances)) class-btree))
    instances))