anchor.diff:  (def-db-thing
       'opinion
     'opinion
  -  #'print
  +  (lambda (x)
  +    (with-output-to-string (s)
  +      (print x s)))
     :keyfunc (lambda (id)
                (opinion-from-db-row (get-assoc-by-pkey 'opinion id)))
     :sortkeys '(target author datestamp excerpt rooturl))
  
positive.code:   (clack-openid-connect:component
     "http://logintest.warflagger.com:5000/oid_connect/")
    (webhax-user:webhax-user :userfig-specs *userfig-fieldspecs*)
    *app*)
   :port 5000)
  
negative.code: (clack-server-manager
   *handler*
   (clack-pretend:pretend-builder
    (:insert 4) ;clack.builder:builder
    (clack.middleware.clsql:<clack-middleware-clsql>
     :database-type :postgresql-socket3
     :connection-spec *db-connect-spec*)
  