anchor.diff:                         :annotate annotate-paste
                          :default-user username
                          :default-title title
  -                       :default-contents text)) 
  +                       :default-contents text))
         ((or
           (some (lambda (regexp)
                   (or (cl-ppcre:scan regexp text)
  -		    (cl-ppcre:scan regexp title))) *banned-content-regexps*)
  -	(let ((user-agent (user-agent)))
  -	  (when user-agent
  -	    (some (lambda (regexp)
  -		    (cl-ppcre:scan regexp user-agent))
  -		  *banned-user-agent-regexps*)))
  +                    (cl-ppcre:scan regexp title))) *banned-content-regexps*)
  +        (let ((user-agent (user-agent)))
  +          (when user-agent
  +            (some (lambda (regexp)
  +                    (cl-ppcre:scan regexp user-agent))
  +                  *banned-user-agent-regexps*)))
           (member title *banned-paste-titles* :test #'equal)
           (member username *banned-paste-users* :test #'equalp))
          ;(ban-ip/request request)
  -       ;(ban-log username request) 
  +       ;(ban-log username request)
          (xml-to-string
           (lisppaste-wrap-page
            "Disallowed!"
  
positive.code: ;;     (application-page ((format nil "Paste ~A removed from this channel!" (paste-number paste)))
  ;;       "The paste "
  ;;       (<a href=? (paste-display-url paste)>
  ;; 	  (prin1-to-string (paste-number paste)))
  ;;       " has been removed from this channel. Thank you!")))
  
  (defun format-paste (paste this-url paste-number &optional annotation colorize-as line-numbers)
  
negative.code: (defun ban-log (user request)
    (log-event
     (format nil "Blocked attempt by ~S, IP ~S, (referred by ~S) to submit a paste.~%Request headers are: ~S.~%Request body is: ~S.~%"
             user
             (car (request-header request :x-forwarded-for))
             (car (request-header request :referer))
             (request-headers request)
             (request-body request))
     :log-file *ban-log-file*))
  
  (defun ban-ip/request (request)
  