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