anchor.diff:                       (or kanji-p conj-types-p)
                        (or (and kanji-p (not prefer-kana))
                            (and common-p pronoun-p)
  -                         (= (n-kanji entry) 0)))
  +                         (= (the fixnum (n-kanji entry)) 0)))
                   (and prefer-kana kanji-p (= ord 0)
                        (not (query (:select 'id :from 'sense
                                             :where (:and (:in 'id (:set (mapcar 'sense-id prefer-kana)))
  
positive.code: ;; *skip-words* *(semi-/non-)final-prt* *weak-conj-forms* *skip-conj-forms* are defined in dict-errata.lisp
  
  (defun calc-score (reading &key final use-length (score-mod 0) kanji-break &aux ctr-mode)
    (typecase reading
      (compound-text
       (let ((args (list (score-base reading) :use-length (mora-length (text reading)) :score-mod (score-mod reading))))
  
negative.code:                        collect part-score into part-scores
                         finally
                           (setf split-info (cons score-mod-split part-scores))
                           (return (the fixnum (reduce '+ part-scores))))))))))
  
      (let ((info (list :posi posi :seq-set (if ctr-mode seq-set (cons seq conj-of))
                        :conj conj-data
  