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

Modified Files:
	ne2k.lisp 
Log Message:
*** empty log message ***
Date: Wed Nov 24 14:12:03 2004
Author: ffjeld

Index: movitz/losp/x86-pc/ne2k.lisp
diff -u movitz/losp/x86-pc/ne2k.lisp:1.11 movitz/losp/x86-pc/ne2k.lisp:1.12
--- movitz/losp/x86-pc/ne2k.lisp:1.11	Mon Aug 23 15:53:36 2004
+++ movitz/losp/x86-pc/ne2k.lisp	Wed Nov 24 14:12:02 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.11 2004/08/23 13:53:36 ffjeld Exp $
+;;;; $Id: ne2k.lisp,v 1.12 2004/11/24 13:12:02 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -20,8 +20,7 @@
 (defpackage muerte.x86-pc.ne2k
   (:use muerte.cl muerte muerte.lib muerte.x86-pc muerte.ethernet)
   (:export #:ne2k-probe
-	   #:+ne2k-probe-addresses+
-	   
+	   #:*ne2k-probe-addresses*
 	   #:with-dp8390
 	   #:with-dp8390-dma
 	   #:dp8390-initialize
@@ -41,7 +40,8 @@
 
 (in-package muerte.x86-pc.ne2k)
 
-(defconstant +ne2k-probe-addresses+ '(#x240 #x260 #x280 #x300 #x320 #x340))
+(defparameter *ne2k-probe-addresses*
+    '(#x300 #x240 #x260 #x280 #x300 #x320 #x340))
 
 (defun ne2k-probe (io-base)
   (let ((io-space (make-io-space :range io-base #x20)))