anchor.diff:    (multiple-value-bind (function warningsp failurep)
         (compile nil (read-from-string string))
       (when warningsp
  -      (couch-log "View function did not compile cleanly: ~A" (remove #\Newline string)))
  +      (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)
  
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))
  
  