[bknr-cvs] hans changed trunk/bknr/web/src/images/imageproc-handler.lisp

[BKNR Commits]

Revision: 4565
Author: hans
URL: http://bknr.net/trac/changeset/4565

fix for current alexandria API
U   trunk/bknr/web/src/images/imageproc-handler.lisp

Modified: trunk/bknr/web/src/images/imageproc-handler.lisp
===================================================================
--- trunk/bknr/web/src/images/imageproc-handler.lisp	2010-07-04 20:34:21 UTC (rev 4564)
+++ trunk/bknr/web/src/images/imageproc-handler.lisp	2010-07-05 09:21:40 UTC (rev 4565)
@@ -179,5 +179,5 @@
         (with-http-response (:content-type (image-content-type (image-type-keyword image)))
           (setf (header-out :content-length) (blob-size image))
           (with-open-file (blob-data (blob-pathname image) :element-type '(unsigned-byte 8))
-            (copy-stream blob-data (send-headers) '(unsigned-byte 8)))))))
+            (copy-stream blob-data (send-headers) :element-type '(unsigned-byte 8)))))))