anchor.diff:                            (create-scanner match :single-line-mode t)))
              (replacement (when-let (replacement (get-parameter "replacement"))
                             (create-scanner replacement :single-line-mode t))))
  -       (format nil "~S" (remove-if (lambda (rule)
  -                                     (or (when kind
  -                                           (not (eq kind (rr-kind rule))))
  -                                         (when match
  -                                           (not (scan match (rr-match rule))))
  -                                         (when replacement
  -                                           (not (scan replacement (rr-replacement rule))))))
  -                                   (drr-uri-rules domain-name-rule)))))
  +       (format nil "~S~&" (remove-if (lambda (rule)
  +                                       (or (when kind
  +                                             (not (eq kind (rr-kind rule))))
  +                                           (when match
  +                                             (not (scan match (rr-match rule))))
  +                                           (when replacement
  +                                             (not (scan replacement (rr-replacement rule))))))
  +                                     (drr-uri-rules domain-name-rule)))))
   
       ((starts-with-subseq "/update" path)
        (let ((rule (find-uri-rule domain-name-rule
  
positive.code:                                 (get-parameter "match")
                                  :error-p t)))
         (update-rule% rule (post-parameters* *request*)))
       "OK")
  
      ((starts-with-subseq "/query-string-updates/" path)
       (let ((rule  (find-uri-rule domain-name-rule
  
negative.code: 
          ((starts-with-subseq "/save-rules" (script-name* *request*))
           (save-rules redirection-acceptor (post-parameter "name" *request*))
           "OK
  ")
  
          ((starts-with-subseq "/domain-name-rule/" (script-name* *request*))
           (admin-domain-name-rules-handler% (subseq (script-name* *request*) 17)
  