anchor.diff:           (original-file (strcat *original-images* (getf image :filename))))
       (run-program *convert-path*
                    (list original-file "-rotate"  "90" original-file))
  +    (modify-db id :modified (get-universal-time))
       (dolist (path (directory (strcat *images-path* id "-*.*")))
         (delete-file path))))
   
  
positive.code:                   (t
                     (error "~S is not a supported content type" content-type))))
           (image (insert-db `(:type :image
                               :content-type ,content-type)))
           (filename (strcat image "." suffix)))
     (copy-file path (merge-pathnames *original-images* filename))
     (modify-db image :filename filename)
  
negative.code: 
  (defun get-image-thumbnail (id maxwidth maxheight &key (filetype "jpg"))
    (let* ((image (db id))
           (modified (or (getf image :modified) 0))
           (filename (format nil "~d-~d-~d-~d.~a" id modified maxwidth maxheight filetype))
           (filepath (merge-pathnames *images-path* filename)))
      (assert image)
      (unless (file-exists-p filepath)
  