anchor.diff:                   (if dispatch-result
                        (apply (cdr dispatch-result) args)
                        (progn
  -                       (couch-log "Unknown message: ~A" name)
  +                       (log-message "Unknown message: ~A" name)
                          (mkhash "error" "unknown_message"
                                  "reason" "Received an unknown message from CouchDB"))))
                (error (e)
  
positive.code: (defun respond (response)
    (handler-case
        (json:encode response)
      (error () (couch-log "Error encoding response: ~A." response)))
    (terpri)
    (finish-output))
  
  
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))
  
  