anchor.diff:           do (loop for end from (1+ start) upto (length str)
                    do (let* ((substr (subseq-slice nil str start end))
                              (val (gethash substr *suffix-cache*)))
  -                      (when val
  -                        (push (cons substr val) (gethash end result nil))))))
  +                      (loop for item in (parse-suffix-val substr val)
  +                         do (push item (gethash end result nil))))))
       result))
   
   (defun get-suffixes (word)
     (init-suffixes)
     (loop for start from (1- (length word)) downto 1
  -       for substr = (subseq-slice nil word start)
  -       for val = (gethash substr *suffix-cache*)
  -       when val
  -       collect (cons substr val)))
  +     for substr = (subseq-slice nil word start)
  +     for val = (gethash substr *suffix-cache*)
  +     nconc (parse-suffix-val substr val)))
   
   (defun find-word-suffix (word &key unique)
     (loop with suffixes = (if *suffix-map-temp* 
  
positive.code: 
          (load-abbr :nakereba "なきゃ")
          (load-abbr :nakereba "なくちゃ")
  
          (load-abbr :shimashou "しましょ")
          (load-abbr :dewanai "じゃない")
  
negative.code:   (sb-thread:with-mutex (*init-suffixes-lock* :wait-p nil)
      (init-suffix-hashtables)
      (with-connection *connection*
        (labels ((update-suffix-cache (text new &key join)
                   (let ((old (gethash text *suffix-cache*)))
                     (setf (gethash text *suffix-cache*)
                           (cond
                             ((not old) new)
                             ((and join (consp (car old)))
                              (cons new old))
                             (join
                              (list new old))
                             (t
                              ;;(format t "Overwriting ~a (was ~a, now ~a)~%" text old new)
                              new)))))
                 (load-kf (key kf &key class text join)
                   (update-suffix-cache (or text (text kf)) (list key kf) :join join)
                   (setf (gethash (seq kf) *suffix-class*) (or class key)))
                 (load-conjs (key seq &optional class join)
                   (loop for kf in (get-kana-forms seq)
                      do (load-kf key kf :class class :join join)))
                 (load-abbr (key text &key join)
                   (update-suffix-cache text (list key nil) :join join)))
  
          (load-conjs :chau 2013800) ;; ちゃう
          (load-conjs :chau 2210750) ;; ちまう
  