anchor.diff: -;;; Copyright 2012-2015 CommonGoods Network, Inc.
  +;;; Copyright 2012-2016 CommonGoods Network, Inc.
   ;;;
   ;;; This file is part of Kindista.
   ;;;
  
positive.code:                               spinner-id
                                "\')")))
        (:div :id spinner-id :class "spinner"))))
  
  (defun rotate-image (id)
    (let* ((image (db id))
  
negative.code:          (image (insert-db (list :type :image
                                   :content-type content-type
                                   :modified (get-universal-time))))
           (filename (strcat image "." suffix))
           (new-path (merge-pathnames *original-images* filename)))
      (copy-file path new-path)
      (modify-db image :filename filename)
      (auto-rotate-image (strcat *original-images* filename))
      (values image)))
  
  (defun new-image-form
    (action
  