anchor.diff:              (text (node-text node)))
           (when (member type '("ja_on" "ja_kun") :test 'equal)
             (let ((text (as-hiragana text))
  -                reading prefixp suffixp ofuri)
  +                reading prefixp suffixp okuri)
               (when (char= (char text 0) #\-)
                 (setf suffixp t text (subseq text 1)))
               (when (char= (char text (1- (length text))) #\-)
  
positive.code:                 ("text" (text reading))
                  ("rtext" (romanize-word (text reading) :method *hepburn-basic* :original-spelling ""))
                  ("type" (reading-type reading))
                  ("ofuri" (query (:select 'text :distinct :from 'ofurigana :where (:= 'reading-id (id reading))) :column))
                  ("sample" (stat-common reading))
                  ("perc" (calculate-perc (stat-common reading) total)))))
        (when (prefixp reading)
  
negative.code:   (!index 'stat-common)
    (!foreign 'kanji 'kanji-id 'id :on-delete :cascade))
  
  (defclass okurigana ()
    ((id :reader id :col-type serial)
     (reading-id :reader reading-id :col-type integer :initarg :reading-id)
     (text :reader text :col-type string :initarg :text))
    (:metaclass dao-class)
    (:keys id))
  
  (defmethod print-object ((obj okurigana) stream)
    (print-unreadable-object (obj stream :type t :identity nil)
      (format stream "~a ~a" (reading-id obj) (text obj))))
  
  (deftable okurigana
    (!dao-def)
    (!index 'reading-id)
    (!foreign 'reading 'reading-id 'id :on-delete :cascade))
  