[bknr-cvs] ksprotte changed trunk/bknr/web/src/images/image.lisp

[BKNR Commits]

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 @@
     , at 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))
     , at body))
 
 (defun make-store-image (&key (image *default-image*)