anchor.diff:    (:method ((client tcp-client) input &aux (input (string-cleanup input)))
       (unless (zerop (length input))
         (cond ((string-equal input "look")
  -             (write-to-client client (format nil "You see a double rainbow all the way across the sky. So intense.~%")))
  +             (format client "You see a double rainbow all the way across the sky. So intense.~%"))
               ((string-equal input "quit")
                (disconnect client :close))
               (t
  -             (write-to-client client (format nil "You say, \"~A\"~%" input))
  +             (format client "You say, \"~A\"~%" input)
                (broadcast-to-room client
                                   (format nil "~A says, \"~A\"~%" (avatar client)
                                           input)))))))
  
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
  