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

[BKNR Commits]

Revision: 4115
Author: hans
URL: http://bknr.net/trac/changeset/4115

Only try to delete old blob file if it exists.

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

Modified: trunk/bknr/web/src/images/image.lisp
===================================================================
--- trunk/bknr/web/src/images/image.lisp	2008-12-05 11:27:44 UTC (rev 4114)
+++ trunk/bknr/web/src/images/image.lisp	2008-12-05 12:08:08 UTC (rev 4115)
@@ -77,7 +77,8 @@
       (:supersede
        (delete-object existing-image))
       (:kill
-       (delete-file (blob-pathname existing-image))
+       (when (probe-file (blob-pathname existing-image))
+         (delete-file (blob-pathname existing-image)))
        (delete-object existing-image))))
   (let ((store-image (apply #'make-instance
 			    class-name