anchor.diff:      ;;   (<center>
       ;;    (<table class="controls">
       ;;            (<tr> (<td> "Page: " page-links))))))
  -    ))
  +;;    ))
   
   (defun single-get-parameter ()
     (ppcre:scan-to-strings "(?<=\\?).+$" (request-uri*)))
  
positive.code:                                      (default-contents "")
                                       (width 80))
    (<table class="new-paste-form">
            (unless annotate
              (<tr>
               (<th align="left" width="0%" nowrap="nowrap">
                    "Select a channel:")
               (<td> (if (or (equal default-channel "")
                             (equal default-channel "None"))
                         (list
                          (<input type="hidden" name="channel" value="None"> "None ")
                          (<a href=?*channel-select-url*> "(Choose)"))
                         (list
                          (<select name="channel">
                                   (<option value=?default-channel selected="selected">
                                            default-channel)
                                   (when *no-channel-pastes*
                                     (<option value="None"> "None")))
                          <br/>
                          (format nil "To paste to a different IRC channel on the network ~A, select a channel from the " *irc-network-name*)
                          (<a href=?*channel-select-url*> "channel list")
                          ".")))))
            (<tr>
             (<th align="left" width="0%" nowrap="nowrap"> "Enter your username:")
             (<td> <input type="text" name="username" value=?default-user />))
            (<tr>
             (<th align="left" width="0%" nowrap="nowrap"> "Enter a title:")
             (<td> <input type="text" name="title" value=?default-title onfocus="if (this.value == 'untitled') { this.value = ''; this.onfocus = ''; }" />))
            (when *show-captcha*
              (<tr>
               (<th align="left" width="0%" nowrap="nowrap"> "Captcha:")
               (<td>
                (let* ((number1 (+ 32 (random 68)))
                       (number2 (+ 32 (random 68))))
                  (multiple-value-bind (captcha captchaid)
                     (make-captcha 4 :string (format nil "~4,'0D" (* number1 number2)))
                   (list
                    (<div style= "display: table-cell;">
                          captcha)
                    <input type="text" name="captcha" />
                    <input type="hidden" name="captchaid" value=?captchaid />))))))
            (unless annotate
  
              (list
               (<tr>
                (<th align="left" width="0%" nowrap="nowrap">
                     "Colorize as: ")
                (<td> (let ((default (gethash default-channel *coloring-type-defaults*)))
                        (<select name="colorize">
                                 (<option value="None" $(unless default
                                                          '("selected" "SELECTED"))> "None")
                                 (loop for pair in (colorize:coloring-types)
                                       collect (<option value=?(cdr pair) $(if (eq (car pair) default)
                                                                               '("selected" "SELECTED"))>
                                                                               (cdr pair)))))))
               (<tr>
                (<th align="left" width="0%" nowrap="nowrap">
                     "Expires in: ")
                (<td> (<select name="expiration">
                               (loop for pair in *expiration-options*
                                     for first = t then nil
                                     collect (<option value=?(car pair) $(if first '("selected" "SELECTED"))>
                                                      (car pair))))))))
            (<tr>
             (<th align="left" valign="top" width="0%" nowrap="nowrap">
                  "Enter your paste:")
             (<td>))
            (<tr>
             (<td colspan="2">
                  (<textarea rows="24" cols=?(prin1-to-string width) name="text">
                             default-contents)))
            (<tr>
             (<th align="left" width="0%" nowrap="nowrap"> "Submit your paste:")
             (<td> <input type="submit" value="Submit paste" />
                   " "
                   <input type="reset" value="Clear paste" />))))
  
  (defun get-default-user ()
    (or (cookie-in "USERNAME")
  
negative.code: 
  (define-easy-handler (new-paste :uri (match-prefix *new-paste-url*))
      (annotate channel)
    (xml-to-string
     (lisppaste-wrap-page
      "Submit"
      (<table>
       (<th> "Due to continued abuse, this service has been discontinued")))))
  ;;  (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=""> "")
  ;;                                 (mapcar (lambda (e)
  ;;                                           (<option value=?e> e))
  ;;                                         *channels*))
  ;;                        <input type="submit" value="Submit"/>))))))))
  
  (defun time-delta (time &key (level 2) (ago-p t) (origin (get-universal-time)) (inverse nil))
    (let ((delta (if inverse
  