anchor.diff:              (<:p (<:ah "Successfully logged in as " username "."))
               (push username *users*)
               (setf (session-value 'username) username)
  +            (format t "~&~A logged in.~%" username)
               (redirect "/"))
             (<:div
              (<:form :name "username" :action "/login"
  
positive.code:       (deletef *users* username :test #'string-equal))))
  
  (defun begin-shared-hallucination ()
    (when *server* (end-shared-hallucination) (print "Restarting..."))
    (setf *users* nil
          *session-removal-hook* #'session-cleanup)
    (start (setf *server* (make-instance 'acceptor :port 8888)))
  
negative.code: 
  (defajax add-message (msg)
    (push msg *current-story*)
    (format t "~&~A entered a new message: ~S~%" (session-value 'username) msg)
    (update-chat))
  
  (defajax update-chat ()
  