anchor.diff:    (loop for result in keys-and-values
        collect (caar result) into keys
        collect (cadr result) into values
  -     finally (respond (list t (mapcar (fun (with-user-package
  -                                             (funcall (ensure-view-function _)
  -                                                      keys values nil)))
  +     finally (respond (list t (mapcar (fun (call-user-function _ keys values nil))
                                         fun-strings)))))
   
   (defun rereduce (fun-strings values)
     "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))))
  +  (respond (list t (mapcar (fun (call-user-function _ nil values t)) fun-strings))))
   
   (defun filter (docs req user-context)
     "Responds to CouchDB with the result of filtering DOCS using the current filter function."
     ;; Yes. I know it only uses the first function only. The JS view server does the same thing.
  -  (respond (list t (mapcar (fun (funcall (car *functions*) _ req user-context)) docs))))
  +  (respond (list t (mapcar (fun (with-user-package
  +                                  (funcall (car *functions*) _ req user-context))) docs))))
   
   (define-condition validation-failure (error)
     ((message :initarg :message :reader failure-message))
  
positive.code:     (if failurep
          (error 'function-compilation-error :string string)
          (setf (gethash string *function-cache*) function))))
  
  (defvar *map-results*)
  (defun emit (key value)
  
negative.code:       (respond (mkhash (string-downcase (princ-to-string (type-of e)))
                         (remove #\Newline (princ-to-string e)))))))
  
  
  
  ;;;
  ;;; Rendering
  ;;;
  (defun show (fun-string doc request)
    (respond (list "resp" (call-user-function fun-string doc request))))
  
  (defparameter *dispatch*
    `(("reset" . ,#'reset)
  