[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-serv26351

Modified Files:
	ethernet.lisp 
Log Message:
sync

Date: Thu Sep  1 00:35:10 2005
Author: ffjeld

Index: movitz/losp/lib/net/ethernet.lisp
diff -u movitz/losp/lib/net/ethernet.lisp:1.10 movitz/losp/lib/net/ethernet.lisp:1.11
--- movitz/losp/lib/net/ethernet.lisp:1.10	Sun Aug 14 20:52:39 2005
+++ movitz/losp/lib/net/ethernet.lisp	Thu Sep  1 00:35:10 2005
@@ -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.10 2005/08/14 18:52:39 ffjeld Exp $
+;;;; $Id: ethernet.lisp,v 1.11 2005/08/31 22:35:10 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -85,7 +85,8 @@
 	 (start-var (gensym "ether-packet-start-")))
     `(let* ((,start-var ,start)
 	    (,packet-var (ensure-data-vector ,packet ,start-var 14))
-	    (,offset-var (+ ,start-var (movitz-type-slot-offset 'movitz-basic-vector 'data))))       
+	    (,offset-var (+ ,start-var (movitz-type-slot-offset 'movitz-basic-vector 'data))))
+       (declare (ignorable ,start-var ,packet-var ,offset-var))
        (macrolet ((,ether (slot)
 		    (ecase slot
 		      (:source