anchor.diff:          (page-number (parse-integer page-number)))
       (case (http-method *request*)
         (:get
  -       (let ((page (get-comic-page comic-id page-number)))
  +       (let ((page (page comic-id page-number)))
            (unless (and page (<= (publish-time page) (get-universal-time)))
              (error 'request-not-found :message "Comic page does not exist."))
            (api-output page)))
  
positive.code:   "The front page of the site."
    (r-clip:process T))
  
  (define-page comic #@"/comic(/[a-zA-Z]+)?(/[0-9]+)?" (:uri-groups (comic-id page-number)
                                                        :lquery (template "comic.ctml"))
    "The web page for displaying a web comic page."
    (let* ((comic (get-comic (when (< 1 (length comic-id)) (subseq comic-id 1 (length comic-id)))))
           (page (get-comic-page (comic-id (if comic comic (error 'request-not-found :message "Invalid comic requested")))
                                 (when (< 1 (length page-number))
                                   (parse-integer (subseq page-number 1 (length page-number)))))))
      (r-clip:process
       T
       :comic-id (comic-id comic)
  
negative.code: 
  ;; Other functions
  
  (defun comic (&optional comic-id)
    (dm:get-one 'comic
                (if comic-id
                    (db:query (:= 'comic-id comic-id))
                    (db:query (:= 'is-default 1)))))
  
  (defun page (comic-id &optional page-number (up-to-time (get-universal-time)))
    (dm:get-one 'comic-page
                (if (not page-number)
                    (db:query (:and (:= 'comic-id comic-id)
  