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