[movitz-cvs] CVS movitz/losp/lib/net

[ffjeld]

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 at 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)