[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-serv26251

Modified Files:
	ne2k.lisp 
Log Message:
*** empty log message ***
Date: Wed Nov 24 17:20:30 2004
Author: ffjeld

Index: movitz/losp/x86-pc/ne2k.lisp
diff -u movitz/losp/x86-pc/ne2k.lisp:1.12 movitz/losp/x86-pc/ne2k.lisp:1.13
--- movitz/losp/x86-pc/ne2k.lisp:1.12	Wed Nov 24 14:12:02 2004
+++ movitz/losp/x86-pc/ne2k.lisp	Wed Nov 24 17:20:30 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.12 2004/11/24 13:12:02 ffjeld Exp $
+;;;; $Id: ne2k.lisp,v 1.13 2004/11/24 16:20:30 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -47,7 +47,7 @@
   (let ((io-space (make-io-space :range io-base #x20)))
     (with-io-space-lock ()
       (when (null (io-space-occupants io-space))
-	(format t "Probing for ne2k NIC at #x~X.." io-base)
+	(format *query-io* "~&Probing for ne2k NIC at #x~X.." io-base)
 	(with-dp8390 (dp8390 io-base)
 	  (let ((tmp (dp8390 #x1f)))
 	    (io-delay 5000)