anchor.diff:  
   
   (defparameter *municipality-types*
  -  '((#\都 "ﾄ")
  -    (#\道 "ﾄﾞｳ")
  -    (#\府 "ﾌ")
  -    (#\県 "ｹﾝ")
  -    (#\市 "ｼ")
  -    (#\町 "ﾁｮｳ" "ﾏﾁ")
  -    (#\村 "ｿﾝ" "ﾑﾗ")
  -    (#\区 "ｸ")))
  +  '((#\都 "ﾄ" "と")
  +    (#\道 "ﾄﾞｳ" "どう")
  +    (#\府 "ﾌ" "ふ")
  +    (#\県 "ｹﾝ" "けん")
  +    (#\市 "ｼ" "し")
  +    (#\町 "ﾁｮｳ" "ﾏﾁ" "ちょう" "まち")
  +    (#\村 "ｿﾝ" "ﾑﾗ" "そん" "むら")
  +    (#\区 "ｸ" "く")))
   
   (defparameter *municipality-types-description*
     '((#\都 . "Metropolis")
  
positive.code: (defgeneric as-xml (entry)
    (:documentation "Representation of entry as XML to be loaded by load-entry"))
  
  (defmethod as-xml ((entry municipality))
    (cxml:with-xml-output (cxml-dom:make-dom-builder)
      (cxml:with-element "entry"
        (cxml:with-element "ent_seq"
          (cxml:text ""))
        (cond ((test-word (municipality-text entry) :kana)
               (cxml:with-element "r_ele"
                 (cxml:with-element "reb"
                   (cxml:text (municipality-text entry)))))
              (t
               (cxml:with-element "k_ele"
                 (cxml:with-element "keb"
                   (cxml:text (municipality-text entry))))
               (cxml:with-element "r_ele"
                 (cxml:with-element "reb"
                   (cxml:text (municipality-reading entry))))))
        (cxml:with-element "sense"
          (cxml:with-element "pos"
            (cxml:text "n"))
          (cxml:with-element "gloss"
            (cxml:attribute "xml:lang" "eng")
            (cxml:text (municipality-definition entry)))))))
  
  
  (defmethod insert-entry ((loader municipality-csv) entry seq)
    (unless *silent-p*
  
negative.code:                               (subseq reading 0 (- (length reading) (length tpr)))))))
          (cons short-text short-reading))))
  
  (defun romanize-municipality (text reading &key (include-type t))
    (let ((short-reading (cdr (municipality-short text reading)))
          (type (char text (1- (length text)))))
      (format nil "~a~@[ ~a~]"
              (ichiran:romanize-word-geo short-reading)
              (and include-type
                   (cdr (assoc type *municipality-types-description*))))))
  
  (defstruct municipality text reading definition type prefecture)
  
  