Author: hhubner Date: 2007-04-15 03:12:54 -0400 (Sun, 15 Apr 2007) New Revision: 2152
Modified: trunk/bknr/src/images/image.lisp Log: correct wording
Modified: trunk/bknr/src/images/image.lisp =================================================================== --- trunk/bknr/src/images/image.lisp 2007-04-15 07:11:08 UTC (rev 2151) +++ trunk/bknr/src/images/image.lisp 2007-04-15 07:12:54 UTC (rev 2152) @@ -132,7 +132,7 @@ (unless (scan #?r"\D" name) (error "invalid image name ~A, needs to contain at least one non-digit character" name)) (when (store-image-with-name name) - (error "can't import image with name ~A, an image with name already exists in the datastore" name)) + (error "can't import image with name ~A, an image with this name already exists in the datastore" name)) (with-image-from-file (image pathname) ;; xxx not tx safe. hm. (let ((store-image (apply #'make-object