anchor.diff:  key inside your object.  TO-JSON must be a function designator for a
   function of one argument to serialize lisp objects to JSON strings.
   Return the id."
  -  (log:debug "Attempt insert of object into ~A" model)
  +  (log:debu3 "Attempt insert of object into ~A" model)
     (unless use-id
       (ensure-model-query model 'nextval-sequence$))
     (ensure-model-query model 'insert$)
  
positive.code:   "Delete the object with primary key ID (of type compatible with
  Postgres type *ID-TYPE*).  Returns ID on success, NIL if there was no
  such ID found."
    (log:debug "Attempt delete of object with key ~A form ~A" id model)
    (ensure-model-query model 'insert-old$ 'delete$)
    (with-retry-serialization-failure ("delete")
      (ensure-transaction-type (delete repeatable-read-rw)
  
negative.code: Postgres type *ID-TYPE*) in MODEL, a symbol, and return a parse of the
  JSON string by the the function of one argument designated by
  FROM-JSON.  Make it #'identity to return just the JSON string proper."
    (log:debu4 "Get object with key ~A from ~A" id model)
    (ensure-model-query model 'get$)
    (funcall from-json (ensure-transaction-type (get read-committed-ro)
                         (get$ model id))))
  