anchor.diff:  (defpackage #:chillax-server (:use :cl))
  -(defpackage #:chillax-server-user (:use :cl))
   (in-package :chillax-server)
   
   (defmacro fun (&body body)
  
positive.code: (defun reset () (setf *functions* nil) t)
  
  (defun call-map-function (function doc &aux *map-results*)
    (with-user-package (funcall function doc)) (or *map-results* '(#())))
  
  (defun map-doc (doc)
    (or (mapcar (fun (call-map-function _ doc)) *functions*) '((#()))))
  
  (defun reduce-map (fun-strings keys values)
    (list t (mapcar (fun (with-user-package (funcall (eval (read-from-string _)) keys values)))
                    fun-strings)))
  
  (defun rereduce (fun-strings reduce-results)
    (list t (mapcar (fun (with-user-package (funcall (eval (read-from-string _)) reduce-results)))
                    fun-strings)))
  
  (defun run-server (&aux *functions*)
    (handler-case
  
negative.code:   (when (boundp *map-results*)
      (push (list k v) *map-results*)))
  
  (defun couch-log (format-string &rest format-args)
    (format t "[\"log\", ~S]~%" (apply #'format nil format-string format-args))
    (finish-output))
  