anchor.diff:  
   (defgeneric make-login-handler (client)
     (:method ((client tcp-client))
  -    (write-to-client client (format nil "~&Please enter your name: "))
  +    (format client "~&Please enter your name: ")
       (lambda (input &aux (input (string-cleanup input)))
         (setf (avatar client) input)
         (broadcast-to-room client (format nil "~A enters the world.~%" (avatar client)))
  -      (write-to-client client (format nil "You are now logged in as ~A.~%" (avatar client)))
  +      (format client "You are now logged in as ~A.~%" (avatar client))
         (setf (input-handler client)
               (make-gameplay-handler client)))))
   
  
positive.code:   nil)
  (defmethod stream-start-line-p ((client tcp-client))
    t)
  (defmethod stream-write-string ((client tcp-client) seq &optional start end)
    (write-to-client client (if start (subseq seq start end) seq)))
  (defmethod stream-clear-output ((client tcp-client))
  
negative.code:           (when (zerop bytes-read)
              (error 'end-of-file))
            (incf (input-buffer-fill client) bytes-read)
            (let ((maybe-line (read-line client)))
              (when maybe-line (handle-line client maybe-line))))
        (iolib:socket-connection-reset-error ()
          ;; Should do something here
  