anchor.diff:    ((id :reader id :col-type serial)
      (seq :reader seq :col-type integer :initarg :seq)
      (from :reader seq-from :col-type integer :initarg :from)
  +   (via :reader seq-via :col-type (or integer db-null) :initform :null :initarg :via)
      )
     (:documentation "conjugation link")
     (:metaclass dao-class)
  
positive.code:                                            (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
                                              :conj-id conj-id
                                              :neg (if ignore-neg :null neg)
                                              :fml (if ignore-fml :null fml))
  
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*
  