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

[Frode Vatvedt Fjeld]

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

Modified Files:
	arp.lisp 
Log Message:
Don't use the old vector-u8 stuff.

Date: Wed Jul 21 17:58:50 2004
Author: ffjeld

Index: movitz/losp/lib/net/arp.lisp
diff -u movitz/losp/lib/net/arp.lisp:1.4 movitz/losp/lib/net/arp.lisp:1.5
--- movitz/losp/lib/net/arp.lisp:1.4	Thu Feb 26 03:28:08 2004
+++ movitz/losp/lib/net/arp.lisp	Wed Jul 21 17:58:50 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Mar 20 15:01:15 2003
 ;;;;                
-;;;; $Id: arp.lisp,v 1.4 2004/02/26 11:28:08 ffjeld Exp $
+;;;; $Id: arp.lisp,v 1.5 2004/07/22 00:58:50 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -43,7 +43,8 @@
   (if packet
       (setf (fill-pointer packet) (max +min-ethernet-frame-size+
 				       (+ start 28)))
-    (setf packet (make-array +min-ethernet-frame-size+ :element-type 'muerte::u8)))
+    (setf packet (make-array +min-ethernet-frame-size+
+			     :element-type '(unsigned-byte 8))))
   (setf (aref packet (+ start 0)) (ldb (byte 8 8) hard-type)
 	(aref packet (+ start 1)) (ldb (byte 8 0) hard-type)
 	(aref packet (+ start 2)) (ldb (byte 8 8) prot-type)