anchor.diff:  (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*)
  
positive.code:             (lambda ()
                (with-schema-connection ()
                  (update 'cat id (obj "name" (format nil "name-~A" id) "coat" "scruffy")))))))
      (loop for id from 4 to 23
            do (update-cat id))))
  
  ;; In production code you would certainly not expect to see 19
  ;; different users all trying to update a single record at once.  But
  
negative.code:               (with-schema-connection ()
                  (let ((*db-handle-serialization-failure-p* nil))
                    (update 'cat id (obj "name" (format nil "name-~A" id) "coat" "scruffy"))))))))
      (with-schema-connection ()
        (dotimes (i 3)
          (update-cat (first (keys 'cat)))))))
  