anchor.diff:       for suffix-class = (and (listp seq) (gethash (car (last seq)) *suffix-class*))
        when (and suffix-class (find suffix-class suffix-classes)) collect word))
   
  -(defun get-suffix-class-description (class)
  -  (case class
  -    (:chau "indicates completion (to finish ...)")
  -    (:ha "topic marker particle")
  -    (:tai "want to... / would like to...")
  -    (:iru "indicates continuing action (to be ...ing)")
  -    (:oru "indicates continuing action (to be ...ing) (humble)")
  -    (:aru "indicates completion / finished action")
  -    (:kuru "indicates action that had been continuing up till now / came to be ")
  -    (:oku "to do in advance / to leave in the current state expecting a later change")
  -    (:kureru "(asking) to let do something")
  -    (:iku "is becoming / action starting now and continuing")
  -    (:suru "makes a verb from a noun")
  -    (:itasu "makes a verb from a noun (humble)")
  -    (:sareru "makes a verb from a noun (honorific or passive)")
  -    (:saseru "let/make someone/something do ...")
  -    (:rou "probably / it seems that... / I guess ...")
  -    (:ii "it's ok if ... / is it ok if ...?")
  -    (:mo "even if ...")
  -    (:sugiru "to be too (much) ...")
  -    (:nikui "difficult to...")
  -    (:kara "because/why")
  -    (:sa "-ness (degree or condition of adjective)")
  -    (:tsutsu "while ... / in the process of ...")
  -    (:tsutsuaru "to be doing ... / to be in the process of doing ...")
  -    (:uru "can ... / to be able to ...")
  -    (:sou "looking like ... / seeming ...")
  -    (:nai "negative suffix")
  -    (:ra "pluralizing suffix (not polite)")
  -    (:kudasai "please do ...")
  -    (:yagaru "indicates disdain or contempt")
  -    (:desu "formal copula")
  -    (:desho "it seems/perhaps/don't you think?")
  -    (:tosuru "to try to .../to be about to...")
  -    (:garu "to feel .../have a ... impression of someone")
  -    ))
  +(hash-from-list
  + *suffix-description*
  + '(:chau "indicates completion (to finish ...)"
  +   :ha "topic marker particle"
  +   :tai "want to... / would like to..."
  +   :iru "indicates continuing action (to be ...ing)"
  +   :oru "indicates continuing action (to be ...ing) (humble)"
  +   :aru "indicates completion / finished action"
  +   :kuru "indicates action that had been continuing up till now / came to be "
  +   :oku "to do in advance / to leave in the current state expecting a later change"
  +   :kureru "(asking) to let do something"
  +   :iku "is becoming / action starting now and continuing"
  +   :suru "makes a verb from a noun"
  +   :itasu "makes a verb from a noun (humble)"
  +   :sareru "makes a verb from a noun (honorific or passive)"
  +   :saseru "let/make someone/something do ..."
  +   :rou "probably / it seems that... / I guess ..."
  +   :ii "it's ok if ... / is it ok if ...?"
  +   :mo "even if ..."
  +   :sugiru "to be too (much) ..."
  +   :nikui "difficult to..."
  +   :kara "because/why"
  +   :sa "-ness (degree or condition of adjective)"
  +   :tsutsu "while ... / in the process of ..."
  +   :tsutsuaru "to be doing ... / to be in the process of doing ..."
  +   :uru "can ... / to be able to ..."
  +   :sou "looking like ... / seeming ..."
  +   :nai "negative suffix"
  +   :ra "pluralizing suffix (not polite)"
  +   :kudasai "please do ..."
  +   :yagaru "indicates disdain or contempt"
  +   :desu "formal copula"
  +   :desho "it seems/perhaps/don't you think?"
  +   :tosuru "to try to .../to be about to..."
  +   :garu "to feel .../have a ... impression of someone"
  +   ;; these are used for splitsegs
  +   2826528 "polite prefix" ;; お
  +   2028980 "at / in / by" ;; で
  +   ))
   
   (defun get-suffix-description (seq)
  -  (get-suffix-class-description (gethash seq *suffix-class*)))
  +  (gethash (or (gethash seq *suffix-class*) seq) *suffix-description*))
   
   (defvar *init-suffixes-lock* (sb-thread:make-mutex :name "init-suffixes-lock"))
   
  
positive.code:                   (segment-list-start segment-list)) len)
             (not (car (getf (segment-info seg) :kpcl)))
             (not (and except (member (get-text seg) except :test 'equal)))))))
           
  (def-generic-penalty penalty-short (l r)
    (filter-short-kana 1)
    (filter-short-kana 1 :except '("と"))
  
negative.code: 
  (def-generic-synergy synergy-noun-da (l r)
    #'filter-is-noun
    (filter-in-seq-set 2089020) ;; だ
    :description "noun+da"
    :score 10
    :connector " ")
  
  (def-generic-synergy synergy-no-da (l r)
    (filter-in-seq-set 1469800 2139720)
    (filter-in-seq-set 2089020 1007370 1007420)
    :description "no da/desu"
    :score 15
  