(in-package :tsdb) (let* ((root (system:getenv "LOGONROOT")) (root (and root (namestring (parse-namestring root))))) (tsdb :skeletons (format nil "~a/lingo/lkb/src/tsdb/skeletons/norsk" root))) (defparameter core '((0 :ascore) (1 :tscore) (2 :rscore))) (defparameter lm '((3 :lm))) (defparameter smt '((5 :lfn) (6 :lnf))) (defparameter distortion '((10 :distortion))) (defparameter distance '((11 :distance))) (defparameter mtrs '((12 :nmtrs) (13 :tratio))) (defparameter ratio '((14 :ratio))) (defparameter fragments '((15 :nfragments))) (defparameter transfer '((20 :mtrs))) (defparameter most (append core lm smt distortion distance mtrs ratio fragments)) (defparameter all (append most transfer)) (setf *feature-grandparenting* -1) (setf *feature-lexicalization-p* nil) (setf *feature-constituent-weight* 0) (setf *feature-active-edges-p* nil) (setf *feature-ngram-size* 0) (setf *feature-lm-p* nil) (setf *feature-flags* all) (setf *feature-item-enhancers* (list #'flags-item-enhancer)) (setf *feature-preference-weightings* '((0 :binary)))