anchor.diff:  (defun fix-entities (source)
     "replaces entity definitions with abbreviations"
     (let ((entity-hash (cxml::dtd-gentities (cxml::dtd (slot-value source 'cxml::context)))))
  -    (maphash 
  +    (maphash
        (lambda (name entdef)
          (unless (member name '("lt" "gt" "amp" "apos" "quot") :test 'equal)
            (setf (cxml::entdef-value (cdr entdef)) name)))
        entity-hash)))
  -    
  +
   (defun load-jmdict (&key (path *jmdict-path*) (load-extras t))
     (init-tables)
     (with-connection *connection*
  
positive.code:                  (loop for kr in kana-readings
                      for ord from 0
                      do (make-dao 'kana-text :seq seq :text kr :ord ord :common :null :conjugate-p conjugate-p)))))
           
           (let* ((old-conj (if via
                                (select-dao 'conjugation (:and (:= 'from from) (:= 'seq seq) (:= 'via via)))
                                (select-dao 'conjugation (:and (:= 'from from) (:= 'seq seq) (:is-null 'via)))))
                  (conj (or (car old-conj) (make-dao 'conjugation :seq seq :from from :via (or via :null))))
                  (conj-id (id conj)))
             (make-dao 'conj-prop :conj-id conj-id :conj-type conj-type :pos pos :neg neg :fml fml)
             
             (let* ((old-csr (when old-conj (query (:select 'text 'source-text :from 'conj-source-reading :where (:= 'conj-id conj-id)))))
                    (source-readings (remove-duplicates (set-difference source-readings old-csr :test 'equal) :test 'equal)))
               (loop for (text source-text) in source-readings
  
negative.code: (defparameter *do-not-conjugate* '("n" "vs" "adj-na"))
  
  (defparameter *pos-with-conj-rules*
   '("adj-i" "adj-ix" "cop-da" "v1" "v1-s" "v5aru"
     "v5b" "v5g" "v5k" "v5k-s" "v5m" "v5n" "v5r" "v5r-i" "v5s"
     "v5t" "v5u" "v5u-s" "vk" "vs-s" "vs-i"))
  
  