anchor.diff:    (loop for (key val) on keys by #'cddr do (setf (gethash key table) val)
        finally (return table)))
   
  +(define-condition chillax-server-error () ())
  +(define-condition function-compilation-error (chillax-server-error)
  +  ((function-string :initarg :string :reader function-string)))
  +
  +(defun compile-view-function (string)
  +  "Compiles an anonymous function from STRING."
  +  (multiple-value-bind (function warningsp failurep)
  +      (compile nil (read-from-string string))
  +    (when warningsp
  +      (couch-log "View function did not compile cleanly: ~A" string))
  +    (if failurep
  +        ;; FIXME: This is basically a constant.
  +        (error 'function-compilation-error :string string)
  +        function)))
  +
   (defun emit (k v)
     (when (boundp *map-results*)
       (push (list k v) *map-results*)))
  
positive.code:   (or (mapcar (fun (call-map-function _ doc)) *functions*) '((#()))))
  
  (defun reduce-map (fun-strings keys values)
    (list t (mapcar (fun (funcall (compile nil (read-from-string _)) keys values nil)) fun-strings)))
  
  (defun rereduce (fun-strings values)
    (list t (mapcar (fun (funcall (compile nil (read-from-string _)) keys values t)) fun-strings)))
  
  (defun run-server (&aux *functions* (*package* (find-package :chillax-server))
                     (black-hole (make-broadcast-stream))
  
negative.code:   (finish-output))
  
  (defun add-fun (string)
    (push (compile-view-function string) *functions*) t)
  
  (defun reset () (setf *functions* nil) t)
  
  