anchor.diff:  
   (defun time-delta (time &key (level 2) (ago-p t) (origin (get-universal-time)) (inverse nil))
     (let ((delta (if inverse
  -		   (- time origin)
  -		   (- origin time))))
  +                   (- time origin)
  +                   (- origin time))))
       (cond
        ((< delta 0) (list "<Doc Brown>From the " (<i> "future") "...</Doc Brown>"))
        ((< delta (* 60 60)) (format nil "~A~A" (time-delta-primitive delta 1) (if ago-p " ago" "")))
  
positive.code:                                      (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"
  
negative.code: (defun last-paste-date-for-channel (channel)
    (let ((paste (car (list-pastes :limit 1 :in-channel channel))))
      (if paste
          (time-delta (paste-universal-time paste) :level 1 :ago-p nil)
          "Never")))
  
  (defun channel-paste-url (channel)
    (concatenate 'string
                 *new-paste-url*
                 "/"
                 (urlstring-escape (if (equalp channel "none")
                                       "None"
                                       (subseq channel 1)))))
  
  (defun channel-list-url (channel)
    (concatenate 'string
                 *list-paste-url*
                 "/"
                 (urlstring-escape (if (equalp channel "none")
                                       "None"
                                       (subseq channel 1)))))
  
  (define-easy-handler (channelselect :uri *channel-select-url*) ()
    (xml-to-string
  