I had to come up with some way to cache dynamic files that I have to serve, so I ended up with a bunch of static files which I served by a simple function:<br>(defun file-to-string (path)<br>&nbsp; &quot;Reads a file into a string&quot;<br>
&nbsp; (if (probe-file path)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (with-open-file (in path)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (let ((str (make-string (file-length in))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (read-sequence str in)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; str))))<br><br>The performance was very good, but then I thought that it&#39;s not the proper way to serve static files as there is a hunchentoot function handle-static-file.<br>
When I started using the hunchentoot&#39;s function the response time almost tripled and when I run &quot;top&quot; program to monitor CPU usage it jumps up to 60% (on my PIII 600 MHz) CPU, <br>whereas using file-to-string CPU usage stays with 2% (maybe because the serving time is much shorter top doesn&#39;t catch that CPU peak).<br>
My question is what could be the reason I see this behaviour? (I am using SBCL 1.0.15 with latest dependences of hunchentoot-0.15.7)<br><br>Thank you,<br>Andrew<br>