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

Modified Files:
	ip6.lisp 
Log Message:
Minor edits.

Date: Sun Apr 11 14:53:42 2004
Author: ffjeld

Index: movitz/losp/lib/net/ip6.lisp
diff -u movitz/losp/lib/net/ip6.lisp:1.5 movitz/losp/lib/net/ip6.lisp:1.6
--- movitz/losp/lib/net/ip6.lisp:1.5	Thu Feb 26 06:27:07 2004
+++ movitz/losp/lib/net/ip6.lisp	Sun Apr 11 14:53: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.5 2004/02/26 11:27:07 ffjeld Exp $
+;;;; $Id: ip6.lisp,v 1.6 2004/04/11 18:53:42 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -574,7 +574,6 @@
   (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)))
-    ;; (ne2000-multicast-join ne2000 (mac-by-multicast-address solicited-node-address))
     (pushnew (mac-by-multicast-address solicited-node-address)
 	     (accept-multicast-addresses ne2000)
 	     :test #'equal)
@@ -594,7 +593,7 @@
 	       (setf (fill-pointer p) 0)
 	       (vector-push p packet-pool)))
 	(loop with timings = (make-array 20 :fill-pointer t)
-	    with eval-buffer = (make-array 16384 :element-type 'character :fill-pointer 0)
+	    with eval-buffer = (make-array 4096 :element-type 'character :fill-pointer 0)
 	    with eval-prev-seqno = 0
 	    with request-queue = nil
 	    with offset = 54