anchor.diff:        (log-message "View function did not compile cleanly: ~A" (remove #\Newline string)))
       (if failurep
           (error 'function-compilation-error :string string)
  -        function)))
  +        (setf (gethash string *function-cache*) function))))
   
   (defvar *map-results*)
   (defun emit (key value)
  
positive.code: (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*)
    (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))
    (setf *functions* nil)
    (respond t))
  
  (defun call-map-function (function doc &aux *map-results*)
  
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)
  