anchor.diff:  (defun start (&key bind (port 8080))
       (setf *log-level* :notice)
       (setf *error-handler* 'error-handler)
  +    (format t "Running application server on ~D~%" port)
       
       (load-views)
   
  
positive.code:               (as:free-signal-handler 2)
                (as:close-tcp-server server)
                (as:exit-event-loop))))))
                  
      
  
negative.code: (in-package :papaya)
  
  (setf cl-who:*attribute-quote-char* #\"
        (cl-who:html-mode) :html5)
  
  (load-plugins :use-quicklisp t)
  
  