Anonymous committed 3980212

remove dispatching debug messages

committer: Jan Rychter <>

Comments (0)

Files changed (1)

     (let* ((script-name (script-name request))
 	   (app-prefix (webapp-prefix app))
 	   (app-pub-prefix (compute-webapp-public-files-uri-prefix app)))
-      (log-message :debug "Application dispatch for ~S/~S" (hunchentoot:host) script-name)
 	((list-starts-with (tokenize-uri script-name nil)
 			   (tokenize-uri "/weblocks-common" nil)
 			   :test #'string=)
-	 (log-message :debug "Dispatching to common public file")
          (return-from weblocks-dispatcher
                       (funcall (create-folder-dispatcher-and-handler 
               (list-starts-with (tokenize-uri script-name nil)
 			   (tokenize-uri app-pub-prefix nil)
 			   :test #'string=))
-	 (log-message :debug "Dispatching to public file")
          ;; set caching parameters for static files
          ;; of interest:
          (if (weblocks-webapp-debug app)
               (list-starts-with (tokenize-uri script-name nil)
                                 (tokenize-uri app-prefix nil)
                                 :test #'string=))
-	 (log-message :debug "Dispatching to application ~A with prefix ~S"
-		      app app-prefix)
 	 (return-from weblocks-dispatcher 
 	   #'(lambda ()
 	       (handle-client-request app)))))))