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

[Frode Vatvedt Fjeld]

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