anchor.diff:        (when sense-str (princ sense-str s)))))
   
   (defun print-conj-info (seq &optional (out *standard-output*))
  -  (loop for conj in (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)))
  +  (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
  
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))
  