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)