[bknr-cvs] ksprotte changed trunk/projects/bos/web/web-utils.lisp

[BKNR Commits]

Revision: 3755
Author: ksprotte
URL: http://bknr.net/trac/changeset/3755

small indentation change

U   trunk/projects/bos/web/web-utils.lisp

Modified: trunk/projects/bos/web/web-utils.lisp
===================================================================
--- trunk/projects/bos/web/web-utils.lisp	2008-08-30 20:20:16 UTC (rev 3754)
+++ trunk/projects/bos/web/web-utils.lisp	2008-09-01 10:09:00 UTC (rev 3755)
@@ -37,18 +37,19 @@
 (defun language-name (language-short-name)
   (cadr (assoc language-short-name (website-languages) :test #'equal)))
 
-(defun content-language-chooser ()  
+(defun content-language-chooser ()
   (html
    ((:p :class "languages")
     "Content languages: "
     (loop for (language-symbol language-name) in (website-languages)
-       do (labels ((show-language-link ()                     
+       do (labels ((show-language-link ()
                      (html (cmslink (with-output-to-string (out)
                                       (write-string (hunchentoot:script-name*) out)
                                       ;; write language param and remaining get params
                                       (write-string "?language=" out)
                                       (write-string language-symbol out)
-                                      (dolist (get-param (remove "language" (hunchentoot:get-parameters*) :key #'first :test #'equal))
+                                      (dolist (get-param (remove "language" (hunchentoot:get-parameters*)
+                                                                 :key #'first :test #'equal))
                                         (destructuring-bind (key . value) get-param
                                           (write-string "&" out)
                                           (write-string key out)