[bknr-cvs] hans changed trunk/projects/quickhoney/src/image.lisp

[BKNR Commits]

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

reindent

U   trunk/projects/quickhoney/src/image.lisp

Modified: trunk/projects/quickhoney/src/image.lisp
===================================================================
--- trunk/projects/quickhoney/src/image.lisp	2008-09-02 10:57:55 UTC (rev 3769)
+++ trunk/projects/quickhoney/src/image.lisp	2008-09-02 14:00:46 UTC (rev 3770)
@@ -2,9 +2,9 @@
 
 (define-persistent-class quickhoney-image (store-image rss-item)
   ((client :update :initform nil
-	   :index-type hash-index :index-initargs (:test #'equal)
-	   :index-reader images-for-client
-	   :index-keys all-clients)
+                   :index-type hash-index :index-initargs (:test #'equal)
+                   :index-reader images-for-client
+                   :index-keys all-clients)
    (spider-keywords :update :initform nil)
    (products :update :initform nil)))
 
@@ -20,7 +20,7 @@
   (mapc (lambda (image)
           (persistent-change-class image 'quickhoney-image)
           (store-object-remove-keywords image 'bknr.web::keywords '(:import)))
-	(get-keywords-intersection-store-images '(:import))))
+        (get-keywords-intersection-store-images '(:import))))
 
 (defmethod quickhoney-image-category ((image quickhoney-image))
   (first (intersection (store-image-keywords image) '(:pixel :vector :news :contact))))
@@ -32,7 +32,7 @@
   (format nil "~@[~A~]/index#~(~A~@[/~A~]~)/~A"
           (unless internal
             (format nil "http://~A" (website-host)))
-	  (quickhoney-image-category image) (quickhoney-image-subcategory image) (store-image-name image)))
+          (quickhoney-image-category image) (quickhoney-image-subcategory image) (store-image-name image)))
 
 (define-persistent-class quickhoney-animation-image (quickhoney-image)
   ((animation :update)))