[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-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 at 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)))