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