anchor.diff:  
   ;; Pages
   (define-page index #@"/" (:lquery (template "main.ctml"))
  +  "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"))
  +                                                      :lquery (template "comic.ctml"))
  +  "The web page for displaying a web comic page."
     (r-clip:process
      T
      :comic-id (if (< 0 (length comic-id))
  
positive.code:                     "0"))) ;; latest page default
  
  (define-page admin #@"/admin" (:lquery (template "admin.ctml"))
    (r-clip:process T)) ;; TODO: authentication stuffs
  
  ;; User API
  
  (define-api comic/page (comic-id page-number) ()
    (let ((comic-id (or* comic-id "default"))
          (page-number (or* page-number "latest")))
      (case (http-method *request*)
  
negative.code: 
  ;; Triggers
  (define-trigger db:connected ()
    "Creates the database tables if they don't already exist."
    (db:create 'comic '((comic-id (:varchar 16))
                        (comic-name (:varchar 128))
                        (author (:varchar 64))
  