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

Modified Files:
	ethernet.lisp 
Log Message:
Add deftype mac-address as (vector (unsigned-byte 8) 6)

Date: Sun Aug 14 20:52:40 2005
Author: ffjeld

Index: movitz/losp/lib/net/ethernet.lisp
diff -u movitz/losp/lib/net/ethernet.lisp:1.9 movitz/losp/lib/net/ethernet.lisp:1.10
--- movitz/losp/lib/net/ethernet.lisp:1.9	Sun Aug 14 14:13:27 2005
+++ movitz/losp/lib/net/ethernet.lisp	Sun Aug 14 20:52:39 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.9 2005/08/14 12:13:27 ffjeld Exp $
+;;;; $Id: ethernet.lisp,v 1.10 2005/08/14 18:52:39 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -170,6 +170,8 @@
 	(ether-type packet start) type)
   packet)
 
+(deftype mac-address ()
+  '(vector (unsigned-byte 8) 6))
 
 (defclass ethernet-device ()
   ((mac-address