Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory clnet:/tmp/cvs-serv20648
Modified Files: ethernet.lisp Log Message: Fix missing keyword args in format-ethernet-packet.
--- /project/movitz/cvsroot/movitz/losp/lib/net/ethernet.lisp 2005/08/31 22:35:10 1.11 +++ /project/movitz/cvsroot/movitz/losp/lib/net/ethernet.lisp 2008/06/12 12:54:52 1.12 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 17 15:25:31 2002 ;;;; -;;;; $Id: ethernet.lisp,v 1.11 2005/08/31 22:35:10 ffjeld Exp $ +;;;; $Id: ethernet.lisp,v 1.12 2008/06/12 12:54:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -166,8 +166,8 @@
(defun format-ethernet-packet (packet source destination type &key (start 0) (source-start 0) (destination-start 0)) - (setf (ether-source packet start source-start) source - (ether-destination packet start destination-start) destination + (setf (ether-source packet start :source-start source-start) source + (ether-destination packet start :destination-start destination-start) destination (ether-type packet start) type) packet)