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

[BKNR Commits]

Revision: 3430
Author: ksprotte
URL: http://bknr.net/trac/changeset/3430

again changed WITH-STORE-IMAGE* to expand to WITH-STORE-IMAGE, so they stay in sync! :)

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:41:08 UTC (rev 3429)
+++ trunk/bknr/web/src/images/image.lisp	2008-07-14 09:43:17 UTC (rev 3430)
@@ -58,8 +58,8 @@
     , at body))
 
 (defmacro with-store-image* ((image) &body body)
-  `(with-image-from-file (cl-gd:*default-image* (blob-pathname ,image) (image-type-keyword ,image))
-    , at body))
+  `(with-store-image (cl-gd:*default-image* ,image)
+     , at body))
 
 (defun make-store-image (&key (image *default-image*)
 			 name