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

Modified Files:
	ne2k.lisp 
Log Message:
Minor edit.

Date: Mon Feb  2 09:57:35 2004
Author: ffjeld

Index: movitz/losp/x86-pc/ne2k.lisp
diff -u movitz/losp/x86-pc/ne2k.lisp:1.5 movitz/losp/x86-pc/ne2k.lisp:1.6
--- movitz/losp/x86-pc/ne2k.lisp:1.5	Sun Feb  1 17:10:17 2004
+++ movitz/losp/x86-pc/ne2k.lisp	Mon Feb  2 09:57:34 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.5 2004/02/01 22:10:17 ffjeld Exp $
+;;;; $Id: ne2k.lisp,v 1.6 2004/02/02 14:57:34 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -67,10 +67,9 @@
   "Probe for the presence of a NE2000 compatible card at IO-address io-base." 
   (with-dp8390 (dp8390 io-base)
     (let ((test-vector #(#xabba #x00ff #x5599 #x0123 #x45de #xadbe #xef23)))
-      (declare (dynamic-extent test-vector))
       ;; NE1000 has RAM buffer located at 8192
       ;; NE2000 has RAM buffer located at 16384
-      ;; We have detected NE2000, check if 16-bit access works:
+      ;; Check if 16-bit access works to NE2000 RAM works:
       (setf (dp8390 ($page0-write cr)) ($command page-0)
 	    (dp8390 ($page0-write dcr)) ($data-config fifo-threshold-8-bytes
 						      loopback-off