[bknr-cvs] r1857 - branches/xml-class-rework/projects/lisp-ecoop/src

[bknr at bknr.net]

Author: hhubner
Date: 2006-02-19 12:40:53 -0600 (Sun, 19 Feb 2006)
New Revision: 1857

Modified:
   branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp
Log:
fix up redirection to relative path.


Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp
===================================================================
--- branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp	2006-02-19 18:28:46 UTC (rev 1856)
+++ branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp	2006-02-19 18:40:53 UTC (rev 1857)
@@ -17,7 +17,7 @@
   (make-instance 'website
 		 :name "LISP ECOOP CMS"
 		 :handler-definitions `(("/" redirect-handler
-					 :to "/home")
+					 :to "home")
 					("/" template-handler
 					 :destination ,(namestring (merge-pathnames #p"templates/" *website-directory*))
 					 :command-packages ((:lisp-ecoop . :lisp-ecoop.tags)