[movitz-cvs] CVS update: movitz/losp/x86-pc/ne2k.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory common-lisp.net:/tmp/cvs-serv16024

Modified Files:
	ne2k.lisp 
Log Message:
Fixed bogus check-type in pop-ringbuffer.

Date: Sun Feb 22 10:19:12 2004
Author: ffjeld

Index: movitz/losp/x86-pc/ne2k.lisp
diff -u movitz/losp/x86-pc/ne2k.lisp:1.7 movitz/losp/x86-pc/ne2k.lisp:1.8
--- movitz/losp/x86-pc/ne2k.lisp:1.7	Mon Feb  2 16:59:27 2004
+++ movitz/losp/x86-pc/ne2k.lisp	Sun Feb 22 10:19:12 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep 17 15:16:00 2002
 ;;;;                
-;;;; $Id: ne2k.lisp,v 1.7 2004/02/02 21:59:27 ffjeld Exp $
+;;;; $Id: ne2k.lisp,v 1.8 2004/02/22 15:19:12 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -118,7 +118,7 @@
 	  (asic-io (asic-io-base device))
 	  (bnry (cached-bnry device))
 	  (packet (or packet (make-array +max-ethernet-frame-size+ :element-type 'muerte::u8))))
-      (check-type packet 'vector-u8)
+      (check-type packet vector-u8)
       (with-dp8390 (dp8390 (io-base device))
 	(multiple-value-bind (packet-status next-bnry packet-length)
 	    (with-dp8390-dma (dp8390 remote-read 4 (* 256 bnry))