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)))))