anchor.diff:    (get-assoc-by-col (colm 'opinion 'url) url))
   
   (defun get-author-data (aid)
  -  (map-tuples 
  +  (map-tuples
      (compose #'keywordize-foreign (curry #'assoc-cdr :type))
      (curry #'assoc-cdr :value)
      (nth-value 1 (get-assoc-by-col (colm 'author 'id) aid))))
  
positive.code: (defun make-rooturl-real (root-id)
    (let ((url (get-rooturl-by-id root-id)))
      (or (rooturl-real-p url)
  	(and (is-cached url) (old-page-available url)
  	     (update-record 'rooturl  root-id `((:rooturl-real . t))))
  	;;FIXME: Implement offsite opinml hunting
  	t)))
  
  (defun find/store-root-url (rurl)
    (block top
      (awhen2 (tryit (get-rooturl-id rurl))
        (return-from top it))
      (awhen (get-rooturl-for-url rurl)
        (return-from top (get-rooturl-id it)))
      (insert-record 'rooturl `((:rooturl . ,rurl) (:rooturl-real . nil)))))
  
  ;;;
  
negative.code:   "Tries to find the url at the root of a tree of comments. The primary value will always be a guess at the url. The second value tells whether get-rooturl is sure of its result. Get-rooturl does not do network lookups."
    (block top
      (awhen (get-assoc-by-col (colm 'rooturl 'rooturl) url)
             (return-from top (values (assoc-cdr :rooturl it)
                                      (ratify:parse-boolean
                                       (assoc-cdr :rooturl-real it)))))
      (awhen (select (colm 'rooturl 'rooturl) (colm 'rooturl 'rooturl-real)
                     :from (list (tabl 'rooturl) (tabl 'opinion))
                     :where
                     (sql-and
                      (sql-= (colm 'opinion 'url) url)
                      (sql-= (colm 'opinion 'rooturl) (colm 'rooturl 'id))))
             (return-from top (values (caar it)
                                      (ratify:parse-boolean (second (car it))))))
      (values nil nil)))
  
  (defun get-rooturl-id (rurl)
  