anchor.diff:       for pos from 0 below str-len
        for char = (char str pos)
        for char-class = (gethash char *char-class-hash* char)
  -     if (and (eql char-class :sokuon) 
  +     if (and (eql char-class :sokuon)
                (not (= pos (1- str-len)))
                (let ((char (char str (1+ pos))))
                  (member (gethash char *char-class-hash* char) *kana-characters*))) collect (1+ pos)
  
positive.code: (defun find-word-info-json (text &key reading root-only)
    (mapcar (lambda (wi) (word-info-gloss-json wi :root-only root-only))
            (find-word-info text :reading reading :root-only root-only)))
  
  
negative.code:                js)))
  
  (defun short-sense-str (seq &key with-pos)
    (query
     (sql-compile
      `(:limit
        (:order-by
         (:select (:select (:raw "string_agg(gloss.text, '; ' ORDER BY gloss.ord)")
                           :from gloss :where (:= gloss.sense-id sense.id))
                  :from sense
                  ,@(if with-pos
                        `(:inner-join (:as sense-prop pos) :on (:and (:= pos.sense-id sense.id)
                                                                     (:= pos.tag "pos")
  