anchor.diff:        (delete-records :from 'rooturl :where (sql-= (colm 'id) rooturl)))))
   
   (defun warflagger-user-from-url (url)
  -  (aref (nth-value 
  -	 1 (ppcre:scan-to-strings (strcat *base-url* "u/([^/]+)/") url))
  -	0))
  -
  -
  -
  +  (aref (nth-value
  +         1 (ppcre:scan-to-strings (strcat *base-url* "u/([^/]+)/") url))
  +        0))
  
positive.code:   (exists
     (unexecuted
       (select (colm 'id) :from (tabl 'opinion)
  	     :where (sql-and (sql-= url (colm 'target))
  			     (sql-> 0 (colm 'votevalue)))))))
  
  ;;;
  ;;; Rooturl utilities
  
negative.code: (defun rooturl-p (url)
    "Warning: this function does not provide a definitive answer."
    (exists (select (colm 'id) :from (tabl 'rooturl)
                               :where (sql-= (colm 'rooturl) url))))
  
  (defun all-rooturls ()
    (get-column (tabl 'rooturl) (colm 'rooturl)))
  