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