anchor.diff:      (loop for rule in rules
            collect (cons rule (construct-conjugation word rule)))))
   
  +(defun get-all-readings (seq)
  +  (query (:union
  +          (:select 'text :from 'kanji-text :where (:= 'seq seq))
  +          (:select 'text :from 'kana-text :where (:= 'seq seq)))
  +         :column))
  +
   (defparameter *do-not-conjugate* '("n" "vs" "adj-na"))
   
   (defun conjugate-entry-inner (seq)
  
positive.code:      if (= kanji-flag 1) collect reading into kanji-readings
       else collect reading into kana-readings
       finally
         (let* ((kanji-readings (remove-duplicates kanji-readings :test #'equal))
                (kana-readings (remove-duplicates kana-readings :test #'equal))
                (seq-candidates
                 (if kanji-readings
                     (query (:intersect 
  
negative.code:          do (loop for ii from 0 below 4
                 for neg = (>= ii 2)
                 for fml = (oddp ii)
                 for readings = (remove-if (lambda (item) 
                                             (member (car item) original-readings :test 'equal))
                                           (row-major-aref matrix ii))
                 when readings
                 do (when (insert-conjugation readings :seq next-seq
                                              :from seq :pos pos
  