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:                                  (or (and common-p pronoun-p)
                                       kanji-p
                                       (= (n-kanji entry) 0))))))
          (unless common-p
            (let* ((table (if kanji-p 'kanji-text 'kana-text))
                   (conj-of-common (query (:select 'id :from table
                                                   :where (:and (:in 'seq (:set conj-of))
  
negative.code: (defun calc-score (reading &optional final use-length)
    (when (typep reading 'compound-text)
      (multiple-value-bind (score info) (calc-score (primary reading) nil (mora-length (text reading)))
        (setf (getf info :conj) (word-conj-data reading))
        (return-from calc-score
          (values (+ score (score-mod reading)) info))))
  
    (let* ((score 1)
           (kanji-p (typep reading 'kanji-text))
  