[movitz-cvs] CVS update: movitz/losp/lib/net/arp.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	arp.lisp 
Log Message:
Minor tweaks.

Date: Thu Feb 26 06:28:08 2004
Author: ffjeld

Index: movitz/losp/lib/net/arp.lisp
diff -u movitz/losp/lib/net/arp.lisp:1.3 movitz/losp/lib/net/arp.lisp:1.4
--- movitz/losp/lib/net/arp.lisp:1.3	Mon Jan 19 06:23:45 2004
+++ movitz/losp/lib/net/arp.lisp	Thu Feb 26 06:28:08 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Mar 20 15:01:15 2003
 ;;;;                
-;;;; $Id: arp.lisp,v 1.3 2004/01/19 11:23:45 ffjeld Exp $
+;;;; $Id: arp.lisp,v 1.4 2004/02/26 11:28:08 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -41,8 +41,9 @@
 				(hard-type 1) (prot-type #x0800)
 				(hard-size 6) (prot-size 4))
   (if packet
-      (setf (fill-pointer packet) 64)
-    (setf packet (make-array 64 :element-type 'muerte::u8)))
+      (setf (fill-pointer packet) (max +min-ethernet-frame-size+
+				       (+ start 28)))
+    (setf packet (make-array +min-ethernet-frame-size+ :element-type 'muerte::u8)))
   (setf (aref packet (+ start 0)) (ldb (byte 8 8) hard-type)
 	(aref packet (+ start 1)) (ldb (byte 8 0) hard-type)
 	(aref packet (+ start 2)) (ldb (byte 8 8) prot-type)