anchor.diff:                     (*error-output* black-hole)
                      (*debug-io* black-hole)
                      (*trace-output* black-hole))
  +  "Toplevel function that parses view requests from CouchDB and sends responses back."
     (handler-case
         (loop for (name . args) = (json:parse (read-line)) do
              (handler-case
  
positive.code:                                       fun-strings)))))
  
  (defun rereduce (fun-strings values)
    (respond (list t (mapcar (fun (with-user-package
                                    (funcall (compile-view-function _) nil values t))) fun-strings))))
  
  (defparameter *dispatch*
    `(("reset" . ,#'reset)
      ("add_fun" . ,#'add-fun)
      ("map_doc" . ,#'map-doc)
      ("reduce" . ,#'reduce-map)
      ("rereduce" . ,#'rereduce)
      ;; Not implemented
      ;; ("validate" . validate)
  
negative.code:   "This macro puts the FUN back in FUNCTION."
    `(lambda (&optional _) (declare (ignorable _)) ,@body))
  
  (defun mkhash (&rest keys-and-values &aux (table (make-hash-table :test #'equal)))
    "Convenience function for `literal' hash table definition."
    (loop for (key val) on keys-and-values by #'cddr do (setf (gethash key table) val)
       finally (return table)))
  
  (define-condition chillax-server-error () ())
  