anchor.diff:       if (funcall test-fn wi) nconc (list (cons wi wi-next))
        nconc (loop for (wf . wf-next) in (word-info-rec-find components test-fn)
                 collect (cons wf (or wf-next wi-next)))))
  -       
  +
   (defun process-word-info (wi-list)
     "Process readings such as nani/nan (hardcoded so far)"
     (loop for (wi wi-next) on wi-list
  
positive.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")
  
negative.code:                  :conjugations (when (typep word 'simple-text) (word-conjugations word))
                   :true-text (when (typep word 'simple-text) (true-text word))
                   :components (when (typep word 'compound-text)
                                 (loop with primary-id = (id (primary word))
                                    for wrd in (words word)
                                    collect (make-instance 'word-info
                                                           :type (word-type wrd)
                                                           :text (get-text wrd)
                                                           :true-text (true-text wrd)
  