anchor.diff:                           (let ((command (read-byte (telnet-connection telnet))))
                              (if (eql command +command-iac+)
                                  (write-byte +command-iac+ (telnet-terminal telnet))
  -                               (telnet-command (telnet-connection telnet) command))))
  +                               (telnet-command telnet (telnet-connection telnet) command))))
                           ((eql byte #x0D) ; CR
                            (setf last-was-cr t)
                            (write-byte byte (telnet-terminal telnet)))
  
positive.code:          (#.+option-terminal-type+
            (write-sequence (apply 'vector
                                   (append (list +command-iac+ +command-sb+ +option-terminal-type+ +subnegotiation-is+)
                                           (map 'list 'char-code "xterm-color")
                                           (list +command-iac+ +command-se+)))
                            connection))
           (t (write-sequence (vector +command-iac+ +command-sb+ option +subnegotiation-is+
  
negative.code:    (receive-process :reader receive-process)
     (buffer :initarg :buffer :reader window-buffer)
     (connection :initform nil :accessor telnet-connection)
     (terminal :reader telnet-terminal)
     (server :initarg :server :reader telnet-server)
     (port :initarg :port :reader telnet-port)
     (terminal-type :initarg :terminal-type :reader telnet-terminal-type))
    (:default-initargs :buffer (sys.graphics::make-fifo 500 'character)))
  
  (defmethod sys.gray:stream-read-char ((stream telnet-client))
  