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