Revision: 3429 Author: ksprotte URL: http://bknr.net/trac/changeset/3429
changed WITH-STORE-IMAGE* so that the only difference to WITH-STORE-IMAGE is that it uses CL-GD:*DEFAULT-IMAGE* as VAR.
I suspect that WITH-STORE-IMAGE was changed earlier to use (image-type-keyword ,image) and this change was forgotten for WITH-STORE-IMAGE*.
U trunk/bknr/web/src/images/image.lisp
Modified: trunk/bknr/web/src/images/image.lisp =================================================================== --- trunk/bknr/web/src/images/image.lisp 2008-07-14 09:05:11 UTC (rev 3428) +++ trunk/bknr/web/src/images/image.lisp 2008-07-14 09:41:08 UTC (rev 3429) @@ -58,7 +58,7 @@ ,@body))
(defmacro with-store-image* ((image) &body body) - `(with-image-from-file (cl-gd:*default-image* (blob-pathname ,image) (image-type-symbol (blob-mime-type ,image))) + `(with-image-from-file (cl-gd:*default-image* (blob-pathname ,image) (image-type-keyword ,image)) ,@body))
(defun make-store-image (&key (image *default-image*)