  -*- Mode : LISP ; Package : USER ;  -*-


(defun enable-tcp-and-chaosnet (&optional hosts &aux l)
  (tcp:test-enable-excelan-chaos)
  (format t "~&Chaosnet Only Enabled, polling hosts...")
  (CHAOS:POLL-HOSTS HOSTS "STATUS"
                    terminal-io
                    #'(lambda (&rest ignore) nil)
                    #'(lambda (&rest ignore) nil)
                    :WHOSTATE "Hostat Reply"
                    :ignore-states '(CHAOS:RFC-SENT-STATE)
                    :timeout 1)
  (setq l ethernet:ether-address-translations)
  (format t "~&~D ethernet translations established, turning on tcp and chaosnet"
          (length ethernet:ether-address-translations))
  (tcp:test-enable-excelan-chaos :tcp-also t)
  (setq ethernet:ether-address-translations l)
  t)

 Package : USER ;  -*-


(defun enable-tcp-and-chaosnet (&optional hosts &aux l)
  (tcp:test-enable-excelan-chaos)
  (format t "~&Chaosnet Only Enabled, polling hosts...")
  (CHAOS:POLL-HOSTS HOSTS "STATUS"
                    terminal-io
                    #'(lambda (&rest ignore) nil)
                    #'(lambda (&rest ignore) nil)
                    :WHOSTATE "Hostat Reply"
                    :ignore-states '(CHAOS:RFC-SENT-STATE)
                    :timeout 1)
  (setq l ethernet:ether-address-translations)
  (format t "~&~D ethernet translations established, turning on tcp and chaosnet"
          (length ethernet:ether-address-translations))
  (tcp:test-enable-excelan-chaos :tcp-also t)
  (setq ethernet:ether-address-translations l)
  t)
