anchor.diff:    (let ((url (get-rooturl-by-id root-id)))
       (or (rooturl-real-p root-id)
           (and (is-cached url) (old-page-available url)
  -             (update-record 'rooturl  root-id `((:rooturl-real . t))))
  +             (update-record 'rooturl  root-id `((,(colm :rooturl-real) . t))))
           ;;FIXME: Implement offsite opinml hunting
           t)))
   
  
positive.code:     (awhen (get-rooturl-for-url rurl)
             (return-from top (get-rooturl-id it)))
      (insert-record 'rooturl
                     `((,(colm :rooturl) . ,rurl) (,(colm :rooturl-real) . nil)))))
  
  ;;;
  ;;; Other accessors
  
negative.code:             'opinion
              (collecting
                  (collect
                      (cons (colm :rooturl) (find/store-root-url target)))
                (dolist (k '(:votevalue :target :datestamp :url))
                  (when-let ((field (assoc k opin)))
                    (collect (cons (colm (car field)) (sql-escape (cdr field))))))
                (when id
                  (collect (cons (colm :id) id)))
                (collect (cons (colm :flag) (flag-to-db flag)))
                (collect (cons (colm :author) authorid))))))
        (when (and (stringp comment) (not-empty comment))
          (insert-records :into 'comment :attributes
                          (list (colm :opinion) (colm :comment))
                          :values (list id (sql-escape comment))))
        (when (and (stringp reference) (not-empty reference))
          (insert-records :into 'reference :attributes
                          (list (colm :opinion) (colm :comment))
                          :values (list id (sql-escape reference))))
        (dolist (k '(:excerpt :excerpt-offset :time-excerpt :excerpt-length))
          (when-let* ((pair (assoc k opin))
                      (val (not-empty (cdr pair))))
            (insert-records :into 'excerpt
                            :attributes
                            (list (colm :opinion) (colm :type) (colm :value))
                            :values (list id
                                          (to-snake-case (mkstr k))
                                          (sql-escape val)))))
        id)))
  
  (defun delete-opinion (oid)
  