anchor.diff:  (defun respond (response)
     (handler-case
         (json:encode response)
  -    (error () (couch-log "Error encoding response: ~A." response)))
  +    (error () (log-message "Error encoding response: ~A." response)))
     (terpri)
     (finish-output))
   
  
positive.code: (defpackage #:chillax-server
    (:use :cl)
    (:export :mkhash :emit :@))
  (defpackage #:chillax-server-user
    (:use :cl :chillax-server))
  (in-package :chillax-server)
  
negative.code:   (flet ((hashget (hash key) (gethash key hash)))
      (reduce #'hashget more-keys :initial-value (gethash key hash))))
  
  (defun log-message (format-string &rest format-args)
    (format t "~&[\"log\", ~S]~%" (apply #'format nil format-string format-args))
    (finish-output))
  
  