Changeset 3430

Show
Ignore:
Timestamp:
07/14/08 11:43:17 (6 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/web/src/images/image.lisp

    r3429 r3430  
    5959 
    6060(defmacro with-store-image* ((image) &body body) 
    61   `(with-image-from-file (cl-gd:*default-image* (blob-pathname ,image) (image-type-keyword ,image)) 
    62     ,@body)) 
     61  `(with-store-image (cl-gd:*default-image* ,image) 
     62    ,@body)) 
    6363 
    6464(defun make-store-image (&key (image *default-image*)