anchor.diff:  
   (defun conjugate-entry-outer (seq)
     (let* ((conj-matrix (conjugate-entry-inner seq))
  +         (original-readings (get-all-readings seq))
            (max-seq (query (:select (:max 'seq) :from 'entry) :single))
            (next-seq (1+ max-seq)))
       (loop for (pos-id conj-id) being the hash-key of conj-matrix using (hash-value matrix)
  
positive.code:   (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)))
      
  
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
  