anchor.diff:                     ((funcall predicate e2 e1) (return nil))))
              seq1 seq2))))
   
  -(defun insert-conjugation (readings &key seq from pos conj-id neg fml)
  +(defun insert-conjugation (readings &key seq from pos conj-id neg fml via)
     "returns true if new entry is created, nil otherwise"
     (loop for (reading kanji-flag) in (sort readings (lex-compare #'<) :key #'cddr)
        if (= kanji-flag 1) collect reading into kanji-readings
  
positive.code:            do (conjugate-entry-outer seq)
             if (zerop (mod cnt 500)) do (format t "~a entries processed~%" cnt)))))
  
  
  ;;; end conjugations
  
  
negative.code:   (loop for conj in (select-dao 'conjugation (:= 'seq seq))
         do (loop for conj-prop in (select-dao 'conj-prop (:= 'conj-id (id conj)))
               do (format out "~%Conjugation: ~a" (conj-info-short conj-prop)))
         (if (eql (seq-via conj) :null)
             (format out "~%  ~a" (entry-info-short (seq-from conj)))
             (progn
               (format out "~% --(via)--")
               (print-conj-info (seq-via conj) out)))))
  
  (defun word-info-str (word-info)
    (with-connection *connection*
  