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

Modified Files: ne2k.lisp Log Message: Made the ne2000 prober slightly less picky about the state of the dp8390 registers, so that it'll find the QEMU ne2k device.

Date: Mon Aug 23 06:53:38 2004 Author: ffjeld

Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.10 movitz/losp/x86-pc/ne2k.lisp:1.11 --- movitz/losp/x86-pc/ne2k.lisp:1.10 Wed Jul 21 17:58:56 2004 +++ movitz/losp/x86-pc/ne2k.lisp Mon Aug 23 06:53:36 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.10 2004/07/22 00:58:56 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.11 2004/08/23 13:53:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -53,8 +53,8 @@ (io-delay 5000) (setf (dp8390 #x1f) tmp)) (cond - ((not (and (= (logand #b00111111 (dp8390 ($page0-read cr))) - ($command stop abort-complete)) + ((not (and #+ignore (= (logand #b00111111 (dp8390 ($page0-read cr))) + ($command stop abort-complete)) (eq 'ne2000 (ne-x000-probe io-base)))) (format t "failed.~%")) (t (let ((device (make-ne2000 io-base)))