anchor.diff:       1006890 ;; そのばあいには
        1887540 ;; 成功の暁には
        )
  -    (l)
  +    (l k)
  +  (:test (alexandria:ends-with #\は k))
     (:space (- l 2))
     (:mod (- l 1)))
   
  
positive.code:        ,@(loop for seq in seqs
              collect `(setf (gethash ,seq *hint-map*) ,fn)))))
  
  (defmacro def-simple-hint (seqs (&optional length-var kana-var reading-var) &body hints-def)
    (unless reading-var (setf reading-var (gensym "RV")))
    (unless length-var (setf length-var (gensym "LV")))
    (unless kana-var (setf kana-var (gensym "KV")))
    `(defhint ,seqs (,reading-var)
       (block hint
         (let* ((,kana-var (true-kana ,reading-var))
                (,length-var (length ,kana-var))
                ,@(loop for (var value) in hints-def
                     unless (keywordp var)
                     collect `(,var (or ,value (return-from hint nil)))))
           (declare (ignorable ,length-var))
           (insert-hints (get-kana ,reading-var)
                         (list
                          ,@(loop for pair in hints-def
                               when (keywordp (car pair))
                               collect `(list ,@pair))))))))
  
  (defun get-hint (reading)
  
negative.code:      2008290 ;; さては
       2136690 ;; にあっては
       )
      (l k)
    (:test (alexandria:ends-with #\は k))
    (:space (- l 1))
    (:mod (- l 1)))
  
  