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

Andrea Chiumenti achiumenti at common-lisp.net
Sun Dec 28 22:40:50 UTC 2008


Author: achiumenti
Date: Sun Dec 28 22:40:50 2008
New Revision: 172

Log:
output of 404 page bugfixed

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

Modified: trunk/main/claw-as/src/server.lisp
==============================================================================
--- trunk/main/claw-as/src/server.lisp	(original)
+++ trunk/main/claw-as/src/server.lisp	Sun Dec 28 22:40:50 2008
@@ -531,7 +531,7 @@
   (connector-address (claw-server-connector claw-server)))
 
 (defmethod error-renderer ((claw-server claw-server) &key (error-code 404))
-  (let ((request-uri (format nil "~a/~a" *server-path* (subseq (claw-script-name) (1+ (length (claw-server-base-path claw-server))))))
+  (let ((request-uri (claw-script-name)) ;(format nil "~a/~a" *server-path* (subseq (claw-script-name) (1+ (length (claw-server-base-path claw-server)))))
         (connector (claw-server-connector claw-server))
         (style "body {
   font-family: arial, elvetica;




More information about the Claw-cvs mailing list