anchor.diff:  
   (defun get-references-to (url)
     "Returns IDs of opinions that contain a reference to URL."
  -  (grab-column (liql url 'reference.reference 'opinion)))
  +  (grab-column (liql url 'reference.reference 'reference.opinion 'opinion)))
   
   (defun get-generated-references-from (url)
     (let ((rid (get-refbot-id)))
  
positive.code:     (cond
        ((is-cached url)
         (if-let ((links (grab-links url)))
           links
           (setf text (grab-text url))))
        ((opinion-exists-p url)
         (setf text (assoc-cdr :comment (opinion-exists-p url))))
  
negative.code:                                     (gethash (car ref) stor)))
              (collect (car ref) ref))))))))
  
  (defun save-new-references (url)
    (loop for (link excerpt) in (find-new-references url)
       do (insert-generated-reference-opinion url link excerpt)))
  