anchor.diff:  (defun add-fun (string)
     "Compiles and adds a function whose source code is in STRING to the current list of
   active CouchDB functions."
  -  (push (with-user-package (compile-view-function string)) *functions*)
  +  (push (with-user-package (ensure-view-function string)) *functions*)
     (respond t))
   
   (defun reset (&optional config)
     "Resets the view server. Any caches should be emptied at this point, and any stored
   map functions should be cleared out."
  -  (declare (ignore config))
  +  (when config
  +   (log-message "Received configuration: ~A" config)) ;unhelpful, but I want to know if I got one.
     (setf *functions* nil)
  +  (clrhash *function-cache*)
     (respond t))
   
   (defun call-map-function (function doc &aux *map-results*)
  
positive.code:       (log-message "View function did not compile cleanly: ~A" (remove #\Newline string)))
      (if failurep
          (error 'function-compilation-error :string string)
          function)))
  
  (defvar *map-results*)
  (defun emit (key value)
  
negative.code:   "Responds to CouchDB with the results of rereducing FUN-STRINGS on VALUES."
    ;; Should -definitely- cache the reduce functions. Recompiling all of these is insane.
    (respond (list t (mapcar (fun (with-user-package
                                    (funcall (ensure-view-function _) nil values t)))
                             fun-strings))))
  
  (defun filter (docs req user-context)
  