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