anchor.diff:  (defconstant +option-echo+ 1)
   (defconstant +option-suppress-go-ahead+ 3)
   (defconstant +option-status+ 5)
  +(defconstant +option-window-size+ 31)
   (defconstant +option-terminal-speed+ 32)
   (defconstant +option-terminal-type+ 24)
   (defconstant +option-x-display-location+ 35)
  
positive.code:       (with-simple-restart (abort "Give up")
          (sys.int::process-wait "Awaiting connection" (lambda () (telnet-connection telnet)))
          ;; Announce capabilities.
          (write-sequence #(#.+command-iac+ #.+command-do+ #.+option-suppress-go-ahead+)
                          (telnet-connection telnet))
          (let ((last-was-cr nil))
            (loop (let ((byte (read-byte (telnet-connection telnet))))
  
negative.code:           (write-sequence (vector +command-iac+ +command-will+
                                    +option-terminal-type+)
                            connection))
           (#.+option-window-size+
            (write-sequence (apply 'vector
                                   (append (list +command-iac+ +command-sb+ +option-window-size+)
                                           (list #x00 80 #x00 24)
                                           (list +command-iac+ +command-se+)))
                            connection))
           (t (write-sequence (vector +command-iac+ +command-wont+ option)
                              connection)))))
      (#.+command-dont+
  