anchor.diff:                                                        :transcript ,transcript
                                                         :image-uri ,image-uri
                                                         :thumb-uri ,thumb-uri
  -                                                      :double-page ,(if double-page 1 0)))))
  +                                                      :double-page ,(if double-page 1 0)
  +                                                      :width ,width
  +                                                      :height ,height))))
       (if old-page
           (db:update 'comic-page
                      (db:query (:and (:= 'comic-id comic-id)
  
positive.code: 
  (defun set-page (comic-id page-number image-uri
                   &key title commentary publish-time
                        tags transcript thumb-uri double-page)
    (unless (comic :id comic-id)
      (error 'database-invalid-field :message "Invalid comic specified."))
    (let* ((old-page (page comic-id :page-number page-number))
  
negative.code:                                  :transcript ,(dm:field page 'transcript)
                                   :image-uri ,(dm:field page 'image-uri)
                                   :thumb-uri ,(dm:field page 'thumb-uri)
                                   :double-page ,(= 1 (dm:field page 'double-page))
                                   :width ,(dm:field page 'width)
                                   :height ,(dm:field page 'height))))
  
  (defun page (comic-id &key page-number (up-to-time (get-universal-time)))
    "Gets the specific page of a comic or the latest one."
  