anchor.diff:  
   (defsetf lookup-query set-lookup-query)
   
  -(defun insert (model object &key use-id (to-json 'to-json) stash-id)
  -  (with-transaction-type (read-committed-rw)
  -    (let* ((id (if use-id use-id (nextval-sequence$ model)))
  -           (object (if stash-id
  -                       (funcall stash-id id object)
  -                       object)))
  -      (insert$ model id (funcall to-json object))
  -      id)))
  -
  -(defun insert$ (model id json)
  -  (funcall (lookup-query model 'insert$) id json))
  -
  -(defun nextval-sequence$ (model)
  -  (funcall (lookup-query model 'nextval-sequence$)))
  -
   ;;;; Make queries paramaterized on model
   
   (defun make-nextval-sequence$ (model sequence)
  
positive.code:                                                       'valid-from
                                                        ',*jdoc*
                                                        :from ,table
                                                        :where (:= ',*id* '$1))
                                               :returning ',*id*)))))
  
  (defun make-update$ (model table)
    (setf (lookup-query model 'update$)
  
negative.code: (in-package :postgres-json)
  
  ;;;; Query management
  
  (defparameter *query-functions* (make-hash-table :test #'equal))
  
  