anchor.diff:        (#.(format nil "~a(\\d+)" *display-paste-url*) script-name)
       (quick-parse-junk-integer integer)))
   
  -(define-easy-handler (display :uri
  -                              (lambda (x) (eql 0 (search *display-paste-url*
  -                                                       (script-name x)))))
  +(defun match-prefix (prefix)
  +  (lambda (x)
  +    (eql 0
  +         (search prefix (script-name x)))))
  +
  +(define-easy-handler (display :uri (match-prefix *display-paste-url*))
       (colorize linenumbers type)
     (let* ((paste-number (parse-paste-number (script-name*)))
            (raw (ends-with (script-name*) "/raw"))
  
positive.code: 	(if (> end start)
  	    (parse-integer string :start start :end end :radix radix)))))
  
  (defmethod handle-request-response ((handler new-paste-handler) method request)
    (let* ((annotate-string (body-param "annotate" (request-body request)))
           (annotate-number (if annotate-string (quick-parse-junk-integer annotate-string)))
           (annotate (if annotate-number (find-paste annotate-number)))
           (default-channel
             (or (and annotate (paste-channel annotate))
                 (if (equalp (urlstring-unescape (request-unhandled-part request)) "/none")
                     "None")
                 (find-if #'(lambda (e) (> (length e) 1))
                          (list
                           (and (eql method :post)
                                (body-param "channel"
                                            (request-body request)))
                           (substitute #\# #\/ (urlstring-unescape (request-unhandled-part request)) :test #'char=) 
                           (and *no-channel-pastes*
                                "None")
                           )))))
      (cond
        ((and default-channel (or (and *no-channel-pastes*
                                       (string-equal default-channel "None"))
                                  (find default-channel *channels* :test #'string-equal)))
         (request-send-headers request :expires 0
                                       :content-type "text/html; charset=utf-8")
         (new-paste-form request :annotate annotate :default-channel default-channel))
        (t 
           (xml-output-to-stream
            (request-stream request)
            (lisppaste-wrap-page
             "Select a channel"
             (<form method="post" action=?*new-paste-url*>
                    (<div class="controls">
                          <input type="hidden" name="annotate" value=?annotate-string />
                          "Please select a channel to lisppaste to: "
                          (<select name="channel">
                                   (<option value=""> "")
  
negative.code: 
  (defclass lisppaste-basic-handler (handler lisppaste-basic-behavior) ())
  
  
  (defclass recent-handler (lisppaste-basic-handler) ())
  
  
  
  (defclass list-paste-handler (lisppaste-basic-handler) ())
  
  
  
  (defclass short-paste-handler (lisppaste-basic-handler) ())
  
  