anchor.diff:  (defmethod print-object ((obj conj-prop) stream)
     (print-unreadable-object (obj stream :type t :identity nil)
       (princ (conj-info-short obj) stream)))
  +
  +(defstruct conj-data seq from prop)
  +
  +(defun get-conj-data (seq)
  +  (loop for conj in (select-dao 'conjugation (:= 'seq seq))
  +       nconcing (loop for prop in (select-dao 'conj-prop (:= 'conj-id (id conj)))
  +                     collect (make-conj-data :seq (seq conj) :from (seq-from conj)
  +                                             :prop prop))))
   
   (defun init-tables ()
     (with-connection *connection*
  
positive.code:     (values readings (mapcar #'ichiran:romanize-word readings))))
  
  (defstruct segment
    start end word (score nil) (top nil)) ;; (accum 0) (path nil)
  
  (defun calc-score (reading &optional final)
    (let* ((score 1)
  
negative.code:     (with-slots (seq ord) reading
        (let* ((entry (get-dao 'entry seq))
               (conj-of (query (:select 'from :from 'conjugation :where (:= 'seq seq)) :column))
               (seq-set (cons seq conj-of))
               (prefer-kana
                (select-dao 'sense-prop (:and (:in 'seq (:set seq-set)) (:= 'tag "misc") (:= 'text "uk"))))
               (posi (query (:select 'text :distinct :from 'sense-prop
                                     :where (:and (:in 'seq (:set seq-set)) (:= 'tag "pos"))) :column))
               (particle-p (member "prt" posi :test #'equal))
               (pronoun-p (member "pn" posi :test #'equal))
               (common (common reading))
  