Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv26336

Modified Files: dhcp.lisp Log Message: sync

Date: Thu Sep 1 00:35:06 2005 Author: ffjeld

Index: movitz/losp/lib/net/dhcp.lisp diff -u movitz/losp/lib/net/dhcp.lisp:1.3 movitz/losp/lib/net/dhcp.lisp:1.4 --- movitz/losp/lib/net/dhcp.lisp:1.3 Tue May 24 09:15:54 2005 +++ movitz/losp/lib/net/dhcp.lisp Thu Sep 1 00:35:06 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri May 13 23:24:01 2005 ;;;; -;;;; $Id: dhcp.lisp,v 1.3 2005/05/24 07:15:54 ffjeld Exp $ +;;;; $Id: dhcp.lisp,v 1.4 2005/08/31 22:35:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -207,7 +207,8 @@ (fill-pointer packet) (incf (fill-pointer packet) length)))))))))

-(defun format-dhcp-request (nic &rest dhcp-options &key (xid 0) (message-type :dhcpdiscover)) +(defun format-dhcp-request (nic &rest dhcp-options &key (xid 0) + #+ignore (message-type :dhcpdiscover)) (let ((packet (make-ethernet-packet))) (with-ether-header (ether packet) (setf (ether :source) (mac-address nic)