anchor.diff:      (with-slots (seq ord) reading
         (let* ((entry (get-dao 'entry seq))
                (root-p (root-p entry))
  -             (conj-of (query (:select 'from :from 'conjugation :where (:= 'seq seq)) :column))
  +             (conj-data (word-conj-data reading))
  +             (conj-of (mapcar #'conj-data-from conj-data))
  +             (secondary-conj-p (and conj-data (every #'conj-data-via conj-data)))
                (seq-set (cons seq conj-of)) ;;(if root-p (list seq) (cons seq conj-of)))
                (prefer-kana
                 (select-dao 'sense-prop (:and (:in 'seq (:set seq-set)) (:= 'tag "misc") (:= 'text "uk"))))
  
positive.code:             (incf score 2)))
          (setf score (* score (length-multiplier (or use-length len) (if (or kanji-p katakana-p) 3 2) 5)))
          (values score (list :posi posi :seq-set (cons seq conj-of)
                              :conj (get-conj-data seq)
                              :kpcl (list kanji-p primary-p common-p long-p)))))))
  
  (defun gen-score (segment &optional final)
  
negative.code:       (when sense-str (princ sense-str s)))))
  
  (defun print-conj-info (seq &optional (out *standard-output*))
    (loop with straight-conj = (select-dao 'conjugation (:and (:= 'seq seq) (:is-null 'via)))
       for conj in (or straight-conj (select-dao 'conjugation (:= 'seq seq)))
       do (loop for conj-prop in (select-dao 'conj-prop (:= 'conj-id (id conj)))
             do (format out "~%[ Conjugation: ~a" (conj-info-short conj-prop)))
         (if (eql (seq-via conj) :null)
             (format out "~%  ~a" (entry-info-short (seq-from conj)))
             (progn
  