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