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