anchor.diff:       (request-stream request)
        (<html> (<body> (<h1> "Redirected"))))
       t))
  -
  
positive.code: (defclass lisppaste-basic-behavior () ())
  
  (defclass lisppaste-basic-handler (handler lisppaste-basic-behavior) ())
  
  (defclass rss-handler (lisppaste-basic-handler) ())
  
  (defclass rss-full-handler (lisppaste-basic-handler) ())
  
  (defclass syndication-handler (lisppaste-basic-handler) ())
  
  (defclass email-redirect-handler (lisppaste-basic-handler) ())
  
  
negative.code: 
  (defun page-links-for-paste-list (page highest-page channel)
    (let ((base-url (if channel
  		      (merge-url *list-paste-url*
  				  (format nil "/~A"
  					  (if (char= #\# (char channel 0))
  					      (subseq channel 1)
  					      channel)))
  		      *list-paste-url*)))
      (flet ((page-url (i)
  	     (merge-url base-url (format nil "?~A" i))))
        ;; XXX: Must we loop over all pages or is there a better way?
        (loop for i from 0 to highest-page
  	    for should-collect = (or (zerop i)
  