anchor.diff:  
   ;; 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))
  
positive.code:        (api-output
          (dm:get-one 'comic-page (db:query (:and (:= 'comic-id comic-id)
                                                  (:= 'page-number page-number))))))
        (T (error (format nil "Request type ~(~a~) not supported." (http-method *request*)))))))
  
  ;; Admin API
  
  (define-api admin/comic/page () () ;; TODO: authentication checks here
    (api-output
     (alexandria:plist-hash-table
      '(:teapot "short and stout"))))
  
  ;; Other functions
  
  (lquery:define-lquery-function reader-template (node object)
    (setf (plump:children node) (plump:make-child-array))
    (plump:parse (template (format NIL "~(~a~).ctml" object)) :root node)
    node)
  
negative.code:                     "0"))) ;; latest page default
  
  (define-page admin #@"/admin" (:lquery (template "admin.ctml"))
    "The admin console user interface."
    (r-clip:process T)) ;; TODO: authentication stuffs
  
  ;; User API
  
  (define-api comic/page (comic-id page-number) ()
    "API interface for getting metadata for a comic page."
    (let ((comic-id (or* comic-id "default"))
          (page-number (or* page-number "latest")))
      (case (http-method *request*)
  