anchor.diff:  
   (defun calc-score (reading &key final use-length (score-mod 0) kanji-break &aux ctr-mode)
     (typecase reading
  -    (compound-text 
  +    (compound-text
        (multiple-value-bind (score info) (calc-score (primary reading)
                                                      :use-length (mora-length (text reading))
                                                      :score-mod (score-mod reading))
  
positive.code: (defun entry-digest (entry)
    (list (seq entry) (get-text entry) (get-kana entry)))
  
  (defclass simple-text () 
    ((conjugations :accessor word-conjugations :initform nil)
     (hintedp :accessor hintedp :initarg :hintedp :initform nil)
     ))
  
negative.code:                js)))
  
  (defun short-sense-str (seq &key with-pos)
    (query
     (sql-compile
      `(:limit
        (:order-by
         (:select (:select (:raw "string_agg(gloss.text, '; ' ORDER BY gloss.ord)")
                           :from gloss :where (:= gloss.sense-id sense.id))
                  :from sense
                  ,@(if with-pos
                        `(:inner-join (:as sense-prop pos) :on (:and (:= pos.sense-id sense.id)
                                                                     (:= pos.tag "pos")
  