anchor.diff:              (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)
  +                            :conj conj-data
                               :kpcl (list kanji-p primary-p common-p long-p)))))))
   
   (defun gen-score (segment &optional final)
  
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:       (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
  