anchor.diff:        (push connection mezzano.network.udp::*udp-connections*))
       (dhcp-send interface
   	       (list (make-dhcp-option +opt-dhcp-message-type+ +dhcp-discover+)
  -		     (make-dhcp-option +opt-parameter-request-list+ #(#.+opt-netmask+ #.+opt-ntp-server+ #.+opt-router+
  -								      #.+opt-domain-name+ #.+opt-dns-servers+)))
  +		     (make-dhcp-option +opt-parameter-request-list+ #(#.+opt-netmask+ #.+opt-ntp-servers+ #.+opt-router+
  +								      #.+opt-domain-name+ #.+opt-dns-servers+
  +								      #.+opt-custom-mezzano-server+)))
   	       xid)
       (unwind-protect
   	 (let ((offer (sys.net:receive connection 4)))
  
positive.code:    (ntp-servers :reader ntp-servers :initarg :ntp-servers)
     (dns-servers :reader dns-servers :initarg :dns-servers)
     (dhcp-server :reader dhcp-server :initarg :dhcp-server)
     (lease-timeout :accessor lease-timeout :initarg :lease-timeout)
     (lease-timestamp :accessor lease-timestamp :initarg :lease-timestamp)))
  
  
negative.code: 			       (make-instance 'dhcp-lease :ip-address oaddr :netmask (get-option options +opt-netmask+)
  					      :gateway (get-option options +opt-router+) :dns-servers (get-option options +opt-dns-servers+)
  					      :dhcp-server (get-option options +opt-dhcp-server+) :interface interface
  					      :ntp-servers (get-option options +opt-ntp-servers+)
  					      :mezzano-server (get-option options +opt-custom-mezzano-server+)
  					      :lease-timestamp (get-universal-time)
  					      :lease-timeout (ub32ref/be (get-option options +opt-lease-time+) 0))
  		       
  