anchor.diff:  
   (defun respond (response)
     (handler-case
  -      (json:encode response)
  +      (funcall *encode-json* response)
       (error () (log-message "Error encoding response: ~A." response)))
     (terpri)
     (finish-output))
  
positive.code: map functions should be cleared out."
    (when config
      #+nil(log-message "Received configuration: ~S" config))
    (when (boundp *functions*) ;I like keeping the toplevel *functions* unbound...
      (setf *functions* nil))
    (clrhash *function-cache*)
    (respond t))
  
negative.code: 
  (defun rereduce (fun-strings values)
    "Responds to CouchDB with the results of rereducing FUN-STRINGS on VALUES."
    (respond (list t (mapcar (fun (call-user-function _ nil values t)) fun-strings))))
  
  (defun filter (docs req user-context)
  