[movitz-cvs] CVS update: movitz/losp/lib/net/ip6.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/lib/net
In directory common-lisp.net:/tmp/cvs-serv26313

Modified Files:
	ip6.lisp 
Log Message:
*** empty log message ***
Date: Wed Nov 24 17:21:42 2004
Author: ffjeld

Index: movitz/losp/lib/net/ip6.lisp
diff -u movitz/losp/lib/net/ip6.lisp:1.6 movitz/losp/lib/net/ip6.lisp:1.7
--- movitz/losp/lib/net/ip6.lisp:1.6	Sun Apr 11 20:53:42 2004
+++ movitz/losp/lib/net/ip6.lisp	Wed Nov 24 17:21:42 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov 14 17:25:31 2001
 ;;;;                
-;;;; $Id: ip6.lisp,v 1.6 2004/04/11 18:53:42 ffjeld Exp $
+;;;; $Id: ip6.lisp,v 1.7 2004/11/24 16:21:42 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -568,9 +568,12 @@
   
 (defvar *ne2000* nil)
 
-(defun ip6-test (&optional (ne2000 (or *ne2000*
-				       (setf *ne2000* (some #'muerte.x86-pc.ne2k:ne2k-probe muerte.x86-pc.ne2k:+ne2k-probe-addresses+))
-				       (error "No ethernet device."))))
+(defun ip6-test (&optional (ne2000 
+			    (or *ne2000*
+				(setf *ne2000*
+				  (some #'muerte.x86-pc.ne2k:ne2k-probe
+					muerte.x86-pc.ne2k:*ne2k-probe-addresses*))
+				(error "No ethernet device."))))
   (let* ((link-local-address (link-local-address-by-mac (mac-address ne2000)))
 	 (solicited-node-address (solicited-node-address link-local-address))
 	 (neighbor-cache (make-neighbor-cache)))