anchor.diff:            (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+
  
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: (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)
  