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: 
  (defclass lisppaste-basic-handler (handler lisppaste-basic-behavior) ())
  
  (defclass main-handler (lisppaste-basic-handler) ())
  
  (defclass recent-handler (lisppaste-basic-handler) ())
  
  (defclass css-handler (lisppaste-basic-handler) ())
  
  (defclass new-paste-handler (lisppaste-basic-handler) ())
  
  (defclass list-paste-handler (lisppaste-basic-handler) ())
  
  (defclass submit-paste-handler (lisppaste-basic-handler) ())
  
  (defclass display-paste-handler (lisppaste-basic-handler) ())
  
  (defclass short-paste-handler (lisppaste-basic-handler) ())
  
  
negative.code: 	(if (> end start)
  	    (parse-integer string :start start :end end :radix radix)))))
  
  (defun parse-new-paste-channel ()
    (ppcre:register-groups-bind (channel)
        (#.(format nil "~a/(\.+)" *new-paste-url*) (script-name*))
      channel))
  
  (define-easy-handler (new-paste :uri (match-prefix *new-paste-url*))
      (annotate channel)
    (let* ((annotate-number (if annotate (quick-parse-junk-integer annotate)))
           (annotate-paste (if annotate-number (find-paste annotate-number)))
           (default-channel
             (or (and annotate-paste (paste-channel annotate-paste))
                 (if (ends-with (script-name*) "/none")
                     "None")
                 (or channel
                     (parse-new-paste-channel))
                 (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)))
         (new-paste-form :annotate annotate-paste :default-channel default-channel))
        (t 
           (xml-to-string
            (lisppaste-wrap-page
             "Select a channel"
             (<form method="post" action=?*new-paste-url*>
                    (<div class="controls">
                          <input type="hidden" name="annotate" value=?annotate />
                          "Please select a channel to lisppaste to: "
                          (<select name="channel">
                                   (<option value=""> "")
  