anchor.diff:  (defconstant +opt-dhcp-server+ 54)
   (defconstant +opt-parameter-request-list+ 55)
   (defconstant +opt-tftp-server+ 66)
  +(defconstant +opt-custom-mezzano-server+ 212)
   (defconstant +opt-end+ 255)
   
   (define-condition dhcp-error ()
  
positive.code: 
  (defconstant +opt-netmask+ 1)
  (defconstant +opt-router+ 3)
  (defconstant +opt-ntp-server+ 4)
  (defconstant +opt-dns-servers+ 6)
  (defconstant +opt-host-name+ 12)
  (defconstant +opt-domain-name+ 15)
  
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))
  		       
  