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

Modified Files: ethernet.lisp Log Message: Have make-ethernet-packet take an optional size parameter.

Date: Wed Nov 24 11:07:11 2004 Author: ffjeld

Index: movitz/losp/lib/net/ethernet.lisp diff -u movitz/losp/lib/net/ethernet.lisp:1.5 movitz/losp/lib/net/ethernet.lisp:1.6 --- movitz/losp/lib/net/ethernet.lisp:1.5 Tue Nov 23 17:14:40 2004 +++ movitz/losp/lib/net/ethernet.lisp Wed Nov 24 11:07:11 2004 @@ -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.5 2004/11/23 16:14:40 ffjeld Exp $ +;;;; $Id: ethernet.lisp,v 1.6 2004/11/24 10:07:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -235,7 +235,7 @@ (values))

-(defun make-ethernet-packet () - (make-array +max-ethernet-frame-size+ +(defun make-ethernet-packet (&optional (size +max-ethernet-frame-size+)) + (make-array size :element-type '(unsigned-byte 8) :fill-pointer t))