;;(unless (find-package :km) (make-package :km))(in-package :km)(setq *using-km-package* t)

;; index-entry structure:
;; ((keywork WN-sense# pos WN-synset) Component depth-in-hierarchy)

(defun index-entry-comp-name (index-entry)
  (second index-entry))

(defun index-entry-depth (index-entry)
  (third index-entry))

(defun index-entry-km-path (index-entry)
  (fourth index-entry))

(defun index-entry-spec-path (index-entry)
  (fifth index-entry))

(defun make-index-entry (&key wordnet-keyword sense# pos synset# comp-keyword depth km-path spec-path)
  (list (list wordnet-keyword sense# pos synset#) comp-keyword depth km-path spec-path))