[isidorus-cvs] r928 - branches/gdl-frontend/src/rest_interface

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Mon Sep 19 08:24:35 2011
New Revision: 928

Log:
gdl-frontend: remove some debug output

Modified:
   branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp

Modified: branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp
==============================================================================
--- branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp	Mon Sep 19 08:13:36 2011	(r927)
+++ branches/gdl-frontend/src/rest_interface/set-up-gdl-interface.lisp	Mon Sep 19 08:24:35 2011	(r928)
@@ -104,7 +104,6 @@
 	   (let* ((rel-addr (subseq (namestring item) absolute-base-path-len))
 		  (content-type (generate-content-type (file-namestring item)))
 		  (rel-uri (concat "/" rel-addr)))
-	     (format t "rel-addr: ~a~%rel-uri: ~a~%~%" rel-addr rel-uri)
 	     (push
 	      (create-static-file-dispatcher-and-handler
 	       rel-uri item content-type)