[cl-blog-cvs] CVS update: cl-blog/cl-blog.lisp

[Brian Mastenbrook]

Update of /project/cl-blog/cvsroot/cl-blog
In directory common-lisp.net:/tmp/cvs-serv3127

Modified Files:
	cl-blog.lisp 
Log Message:
LESS (format t ...)

Date: Wed Oct 20 03:39:25 2004
Author: bmastenbrook

Index: cl-blog/cl-blog.lisp
diff -u cl-blog/cl-blog.lisp:1.4 cl-blog/cl-blog.lisp:1.5
--- cl-blog/cl-blog.lisp:1.4	Wed Oct 20 03:30:09 2004
+++ cl-blog/cl-blog.lisp	Wed Oct 20 03:39:25 2004
@@ -248,13 +248,7 @@
 (defclass validate-unhandled-part-mixin ()
   ((validate-lambda :initarg :validate-lambda :initform (constantly t) :accessor validate-lambda)))
 
-(defclass timing-mixin () ())
-
-(defmethod handle-request-response :around ((handler timing-mixin) method request)
-  (format t "user-agent is ~S~%" (request-header request :user-agent))
-  (call-next-method))
-
-(defclass main-handler (handler timing-mixin no-cell-phone-css-mixin) ())
+(defclass main-handler (handler no-cell-phone-css-mixin) ())
 
 (defclass authenticate-mixin () ())
 
@@ -769,7 +763,6 @@
   ;; Right now, trackback.lisp is only present on SBCL.
   #+sbcl
   (let ((urls (search-for-trackbacks-for-text (blog-entry-contents entry))))
-    (format t "urls is ~S~%" urls)
     (loop for url in urls
          for ping = (trackback:autodetect-ping-for-url url)
          if ping