anchor.diff:  
   
   (defun load-secondary-conjugations ()
  -  (let ((to-conj (query-dao 'conjugation 
  +  (let ((to-conj (query-dao 'conjugation
                               (:select 'conj.* :distinct :from (:as 'conjugation 'conj)
                                        :left-join 'conj-prop :on (:= 'conj.id 'conj-prop.conj-id)
                                        :where (:and (:in 'conj-prop.conj-type (:set *secondary-conjugation-types-from*))
  
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:       (push
         `(defun ,loader-name ()
            (setf ,hash-name (make-hash-table :test 'equal))
            (loop :for ,row-def :in (cl-csv:read-csv
                                     (merge-pathnames *jmdict-data* ,filename)
                                     :separator #\Tab :skip-first-p ,skip-first)
               :for ,row-count-var :from 0
  