[claw-cvs] r146 - trunk/main/claw-as/src

[Andrea Chiumenti]

Author: achiumenti
Date: Fri Nov 14 12:27:54 2008
New Revision: 146

Log:
code cleanup


Modified:
   trunk/main/claw-as/src/lisplet.lisp

Modified: trunk/main/claw-as/src/lisplet.lisp
==============================================================================
--- trunk/main/claw-as/src/lisplet.lisp	(original)
+++ trunk/main/claw-as/src/lisplet.lisp	Fri Nov 14 12:27:54 2008
@@ -214,9 +214,9 @@
                            (if (claw-proxified-p)
                                (clawserver-proxy-https-port *clawserver*)
                                (claw-server-port)))))
-            (claw-redirect (if (ends-with-subseq "/" uri)
-                               (format nil "~a~a" uri (subseq welcome-page 1))
-                               (format nil "~a/~a" uri (subseq welcome-page 1)))
+            (claw-redirect (format nil "~a~a" uri (if (ends-with-subseq "/" uri)
+                                                      (subseq welcome-page 1)
+                                                      welcome-page))
                            :protocol protocol
                            :port port)))
           (lisplet-dispatch-request lisplet uri)))))