anchor.diff:  (defconstant +opt-tftp-server+ 66)
   (defconstant +opt-parameter-request-list+ 55)
   (defconstant +opt-host-name+ 12)
  +(defconstant +opt-domain-name+ 15)
   (defconstant +opt-end+ 255)
   
   (defun build-dhcp-packet (&key mac-address options (siaddr 0))
  
positive.code: 				   :local-port +dhcp-client-port+)))
      (mezzano.supervisor:with-mutex (mezzano.network.udp::*udp-connection-lock*)
        (push connection mezzano.network.udp::*udp-connections*))
      (dhcp-send (list (make-dhcp-option 53 :size 1 :value 1)
  		     (make-dhcp-option 55 :size 5 :value #(1 4 3 15 6))))
      (unwind-protect
  	 (let* ((offer (sys.net:receive connection 4))
  		(siaddr (ub32ref/be offer 20))
  
negative.code:        do (setf (subseq packet pos) option))
      packet))
  
  (defun decode-dhcp-option (buffer position)
    "Returns (VALUES type value next-option-position)"
    (if (zerop (aref buffer position))
        (values 0 nil (1+ position))
  