anchor.diff:                (with-schema-connection ()
                   (let ((*db-handle-serialization-failure-p* nil))
                     (update 'cat id (obj "name" (format nil "name-~A" id) "coat" "scruffy"))))))))
  -    (dotimes (i 3)
  -      (update-cat 1))))
  +    (with-schema-connection ()
  +      (dotimes (i 3)
  +        (update-cat (first (keys 'cat)))))))
  
positive.code:             (lambda ()
                (with-schema-connection ()
                  (update 'cat id (obj "name" (format nil "name-~A" id) "coat" "scruffy")))))))
      (dotimes (i 19)
        (update-cat 1))))
  
  #+bordeaux-threads
  (defun update-one-allow-failure ()
  
negative.code: (defparameter *connection* '("cusoon" "gtod" "" "localhost" :port 5433 :pooled-p t))
  
  (defparameter *test-schema* 'gtod-net-postgresql-json-test-schema)
  
  (log:config :debug)
  
  (defmacro with-schema-connection (() &body body)
    `(with-db-schema (*test-schema*)
  