anchor.diff:           (#.+option-terminal-type+
             (write-sequence (apply 'vector
                                    (append (list +command-iac+ +command-sb+ +option-terminal-type+ +subnegotiation-is+)
  -                                         (map 'list 'char-code "xterm-color")
  +                                         (map 'list 'char-code (telnet-terminal-type telnet))
                                            (list +command-iac+ +command-se+)))
                             connection))
            (t (write-sequence (vector +command-iac+ +command-sb+ option +subnegotiation-is+
  
positive.code:                  (return bytes))))
               (t (vector-push-extend byte bytes))))))
  
  (defun telnet-command (connection command)
    (case command
      (#.+command-sb+
       (let ((option (read-byte connection))
  
negative.code:                                          :interrupt-character (name-char "C-["))))
             (setf (slot-value window 'terminal) terminal)
             (setf sys.graphics::*refresh-required* t)
             (with-open-stream (connection (sys.net::tcp-stream-connect (telnet-server window) (telnet-port window)))
               (setf (telnet-connection window) connection)
               (handler-case
                   (loop (let ((byte (read-byte terminal)))
  