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: 
  (pushnew :dewanai *suffix-unique-only*)
  
  (defun get-suffix-map (str)
    (init-suffixes)
    (let ((result (make-hash-table)))
  
negative.code: 
          (load-conjs :tai 2017560)
          (load-conjs :ren 2772730 :nikui)
  
          (load-conjs :te 1577985 :oru) ;; おる
  
          (load-conjs :te 1296400 :aru) ;; ある
  
          (loop for kf in (get-kana-forms 1577980) ;; いる (る)
             for tkf = (text kf)
  