anchor.diff:                                (subseq reading 0 (- (length reading) (length tpr)))))))
           (cons short-text short-reading))))
   
  -(defun romanize-municipality (text 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)
  -            (cdr (assoc type *municipality-types-description*)))))
  +            (and include-type
  +                 (cdr (assoc type *municipality-types-description*))))))
   
   (defstruct municipality text reading definition type prefecture)
   
  
positive.code:   (query (:update 'gloss :set 'text (municipality-definition entry)
                    :from 'sense :where (:and (:= 'gloss.sense-id 'sense.id) (:= 'sense.seq seq) (:= 'gloss.text gloss)))))
  
  (defclass wards-csv (csv-loader)
    ((description :initform "wards")))
  
  
  (defun source-path (file)
    (asdf:system-relative-pathname :ichiran (format nil "data/sources/~a" file)))
  
negative.code: (defgeneric as-xml (entry)
    (:documentation "Representation of entry as XML to be loaded by load-entry"))
  
  (defun as-xml-simple (text reading definition)
    (cxml:with-xml-output (cxml-dom:make-dom-builder)
      (cxml:with-element "entry"
        (cxml:with-element "ent_seq"
          (cxml:text ""))
        (cond ((test-word text :kana)
               (cxml:with-element "r_ele"
                 (cxml:with-element "reb"
                   (cxml:text text))))
              (t
               (cxml:with-element "k_ele"
                 (cxml:with-element "keb"
                   (cxml:text text)))
               (cxml:with-element "r_ele"
                 (cxml:with-element "reb"
                   (cxml:text reading)))))
        (cxml:with-element "sense"
          (cxml:with-element "pos"
            (cxml:text "n"))
          (cxml:with-element "gloss"
            (cxml:attribute "xml:lang" "eng")
            (cxml:text definition))))))
  
  (defmethod as-xml ((entry municipality))
    (as-xml-simple (municipality-text entry) (municipality-reading entry) (municipality-definition entry)))
  
  (defmethod insert-entry ((loader municipality-csv) entry seq)
    (unless *silent-p*
  