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:   (flet ((hashget (hash key) (gethash key hash)))
      (reduce #'hashget more-keys :initial-value (gethash key hash))))
  
  (defun couch-log (format-string &rest format-args)
    (format t "~&[\"log\", ~S]~%" (apply #'format nil format-string format-args))
    (finish-output))
  
  
negative.code:   (multiple-value-bind (function warningsp failurep)
        (compile nil (read-from-string string))
      (when warningsp
        (log-message "View function did not compile cleanly: ~A" (remove #\Newline string)))
      (if failurep
          ;; FIXME: This is basically a constant.
          (error 'function-compilation-error :string string)
  