anchor.diff:  
   (defmethod init ((client tcp-client))
     (format client "~&Hello. Welcome to Sykosomatic.~%")
  -  (login client))
  +  (maybe-login client))
   
   (defmethod update ((client tcp-client))
  -  nil)
  +  (let ((k (client-continuation client)))
  +    (if k
  +        (progn (setf (client-continuation client) nil)
  +               (funcall k (last-input client)))
  +        (funcall (client-main client)))))
   
   (defmethod teardown ((client tcp-client))
     (close client :abort t)
  
positive.code: (defgeneric handle-line (client line)
    (:method ((client tcp-client) line)
      (format t "~A sez: ~A~%" client line)
      (funcall (input-handler client) line)))
  
  (defun broadcast-to-room (client format-string &rest format-args)
    (let ((text (apply #'format nil format-string format-args)))
  
negative.code: ;;;
  (defparameter *server-listen-ip* iolib:+ipv4-unspecified+)
  (defparameter *server-port* 4000)
  (defparameter *default-client-main* nil)
  
  ;;;
  ;;; TCP Clients
  ;;;
  (defclass tcp-client (client fundamental-character-output-stream
                               fundamental-character-input-stream)
    (#+nil(input-handler :initarg :input-handler :initform nil :accessor input-handler)
     (socket :accessor socket :initarg :socket
             :initform (error "Must provide a socket for this client."))
     (remote-name :accessor remote-name)
  