[bknr-cvs] r1896 - branches/xml-class-rework/bknr/src/web

[bknr at bknr.net]

Author: hhubner
Date: 2006-03-07 01:49:08 -0500 (Tue, 07 Mar 2006)
New Revision: 1896

Modified:
   branches/xml-class-rework/bknr/src/web/authorizer.lisp
Log:
Remove debug output.


Modified: branches/xml-class-rework/bknr/src/web/authorizer.lisp
===================================================================
--- branches/xml-class-rework/bknr/src/web/authorizer.lisp	2006-03-07 06:45:29 UTC (rev 1895)
+++ branches/xml-class-rework/bknr/src/web/authorizer.lisp	2006-03-07 06:49:08 UTC (rev 1896)
@@ -72,7 +72,6 @@
 		      (req http-request)
 		      ent)
 
-  (format t "; trying to authorize request~%")
   ;; Catch any errors that occur during request body processing
   (handler-case
       ;; first check session cookie or bknr-sessionid parameter. the
@@ -84,7 +83,6 @@
         (when session
           (bknr-session-touch session)
           (change-class req 'bknr-request :session session)
-          (format t "; request authorized~%")
           (return-from authorize t)))
     (error (e)
       (format t "; Caught error ~A during request processing~%" e)