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 @@ ,@body))
(defmacro with-store-image* ((image) &body body) - `(with-image-from-file (cl-gd:*default-image* (blob-pathname ,image) (image-type-keyword ,image)) - ,@body)) + `(with-store-image (cl-gd:*default-image* ,image) + ,@body))
(defun make-store-image (&key (image *default-image*) name