Instead of saving an image into a file using write-image-to-file I was trying to provide a hunchentoot handler which outputs an array of bytes (just like in the hunchentoot test.lisp image-ram-page example). For this I thought write-jpeg-to-stream would be the best candidate so I did following:
<br><br>&nbsp; (let ((s (make-string-output-stream :element-type &#39;(unsigned-byte 8))))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (write-jpeg-to-stream s :image bg-image)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (let ((image-data (make-array (image-size bg-image) :element-type &#39;(unsigned-byte 8))))
<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (read-sequence image-data s)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; image-data)))))))<br><br>For which the SBCL complains:<br>#&lt;SB-IMPL::STRING-OUTPUT-STREAM {CE6D171}&gt; is not a binary output stream.<br><br>I am wondering if I am doing the right thing and choosing the right function for the task. I also tried to create a stream with flexi-stream:
<a class="none" name="make-in-memory-output-stream">make-in-memory-output-stream without any success.<br><br>Thank you,<br>Andrew<br></a><b><a class="none" name="make-in-memory-output-stream"></a></b>