anchor.diff:       (and (typep (segment-word segment) 'kanji-text)
             (intersection '("n" "n-adv" "n-t" "adj-na")
                           (getf (segment-info segment) :posi)
  -                        :test #'equal)))
  +                        :test 'equal)))
      (lambda (segment)
        (intersection '("prt" "cop-da")
                      (getf (segment-info segment) :posi)
  -                   :test #'equal))
  +                   :test 'equal))
      :description "noun+prt"
      :score 15
      :connector " "))
  
positive.code: 
  (defun conjugate-entry-outer (seq)
    (let* ((conj-matrix (conjugate-entry-inner seq))
           (max-seq (query (:select (:max 'seq) :from 'entry) :single))
           (next-seq (1+ max-seq)))
      (loop for (pos-id conj-id) being the hash-key of conj-matrix using (hash-value matrix)
  
negative.code:   (let ((entity-hash (cxml::dtd-gentities (cxml::dtd (slot-value source 'cxml::context)))))
      (maphash 
       (lambda (name entdef)
         (unless (member name '("lt" "gt" "amp" "apos" "quot") :test 'equal)
           (setf (cxml::entdef-value (cdr entdef)) name)))
       entity-hash)))
      
  