anchor.diff:                (kana-readings (remove-duplicates kana-readings :test 'equal))
                 (seq-candidates
                  (if kanji-readings
  -                   (query (:intersect 
  +                   (query (:intersect
                              (:select 'seq :from 'kanji-text
                                       :where (:in 'text (:set kanji-readings))
                                       :group-by 'seq
  
positive.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"))
  
  
negative.code: (defun fix-entities (source)
    "replaces entity definitions with abbreviations"
    (let ((entity-hash (cxml::dtd-gentities (cxml::dtd (slot-value source 'cxml::context)))))
      (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*
  