Hi All,<br><br>Had a look over the NIO work, running ab2(apache-bench - <a href="http://httpd.apache.org/docs/2.2/programs/ab.html%29" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://httpd.apache.org/docs/2.2/programs/ab.html)
</a>) against it, and it seems to hold up pretty well when compared with
apache/mod_lisp2 and araneida (I'll post some results later on).<br><br>I ran into a memory leak, which the following patch fixed for
me. The patch is against the nio-20060204.tar.gz (doesn't look like the
cvs is up-to-date?) from the <a href="http://common-lisp.net/project/nio/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://common-lisp.net/project/nio/
</a> website.<br><br>I'm no lisp expert, so any feedback appreciated.<br><br>Cheers,<br><br>Paul.<br><br>nio-20060204$ diff async-fd.lisp.orig async-fd.lisp<br>184c184<br>&lt; &nbsp; (with-slots (write-queue read-fd write-fd) async-fd
<br>---<br>&gt; &nbsp; (with-slots (write-queue read-fd write-fd foreign-read-buffer) async-fd<br>189a190<br>&gt; &nbsp; &nbsp; &nbsp; &nbsp;(foreign-free foreign-read-buffer)<br>216,220c217,226<br>&lt; &nbsp; &nbsp; ;; remove entries that have been fully written
<br>&lt; &nbsp; &nbsp; (setf write-queue (remove-if #'(lambda (x)<br>&lt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(with-slots (size written) x<br>&lt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(= size written)))<br>&lt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;write-queue))
<br>---<br>&gt; &nbsp; &nbsp; ;; remove (and dealloc buffers) of entries that have been fully written<br>&gt; &nbsp; &nbsp; (let ((unfinished-entries NIL))<br>&gt; &nbsp; &nbsp; &nbsp; (setf write-queue<br>&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (nreverse<br>&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(dolist (entry write-queue unfinished-entries)
<br>&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(with-slots (size written) entry<br>&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(if (= size written)<br>&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(with-slots (buffer) entry<br>&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(foreign-free buffer))<br>&gt; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;(push entry unfinished-entries)))))))
<br>