Commit a42ecca1 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld
Browse files

Fix missing keyword args in format-ethernet-packet.

parent 39064757
Loading
Loading
Loading
Loading
+3 −3
Original line number Original line Diff line number Diff line
@@ -10,7 +10,7 @@
;;;; Author:        Frode Vatvedt Fjeld <frodef@acm.org>
;;;; Author:        Frode Vatvedt Fjeld <frodef@acm.org>
;;;; Created at:    Tue Sep 17 15:25:31 2002
;;;; Created at:    Tue Sep 17 15:25:31 2002
;;;;                
;;;;                
;;;; $Id: ethernet.lisp,v 1.10 2005/08/14 18:52:39 ffjeld Exp $
;;;; $Id: ethernet.lisp,v 1.11 2005/08/31 22:35:10 ffjeld Exp $
;;;;                
;;;;                
;;;;------------------------------------------------------------------
;;;;------------------------------------------------------------------


@@ -166,8 +166,8 @@


(defun format-ethernet-packet (packet source destination type &key (start 0) (source-start 0)
(defun format-ethernet-packet (packet source destination type &key (start 0) (source-start 0)
								   (destination-start 0))
								   (destination-start 0))
  (setf (ether-source packet start source-start) source
  (setf (ether-source packet start :source-start source-start) source
	(ether-destination packet start destination-start) destination
	(ether-destination packet start :destination-start destination-start) destination
	(ether-type packet start) type)
	(ether-type packet start) type)
  packet)
  packet)