anchor.diff:                                 :if-does-not-exist :create
                                  :if-exists :append))))
   
  -(defvar *hunch-log*)
  +(defvar *hunch-log* nil)
   (defun setup-web-log (path)
     (when path
       (let ((stream (open path
  
positive.code:       (setf (hunchentoot:acceptor-message-log-destination
               *acceptor*) *hunch-log*))))
  
  ;; Setup logging
  (setf vom:*log-hook*
    (lambda (level package package-level)
      (declare (ignore level package-level package))
      (values t *standard-output* *log-stream*)))
  
  ;; Start app
  (defun start (&optional conf-file)
  
negative.code:   (with-open-file (in path)
      (setf *config* (read in))))
  
  (defvar *log-stream* nil)
  (defun create-log-file (path)
    (if path
        (setf *log-stream* (open path
  