anchor.diff:                 (:h3 "Incoming references:"))
                (when (@ rwstats referenced)
                  (psx (:referenced-loader :key 4 :referenced (@ rwstats referenced))))
  +             (:references-summary :... (@ this props))
                (:questions :... (@ this props))
                (:high-scores :... (@ this props))
                (:controversial :... (@ this props)))))))
  
positive.code:                     (collect
                          (psx
                           (:opinion-summary
                            :tree-address (getprop (prop opinion-store) id 'tree-address)
                            :opinion-store (prop opinion-store)))))))))
  
  
negative.code:          (dolist (r (prop referenced))
             (let ((data (getprop (prop inrefs) r)))
               (when data
                 (psx
                  (:opinion-summary
                   :key (unique-id)
                   :opinion-store (create-from-list (list r data))
                   :tree-address (@ data tree-address)
                   :warstats (@ data warstats))))))))
  
      (def-component referenced-loader
          (psx
  