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:                            (transcript :text)
                             (image-uri (:varchar 128))
                             (thumb-uri (:varchar 128))
                             (double-page (:integer 1)))))
  
  (defun comics (&optional author)
    "Gets all of the comics. All of them. Or just for an author."
  
negative.code: 
  (defun set-page (comic-id page-number image-uri
                   &key title commentary publish-time
                        tags transcript thumb-uri double-page
                        (width 0) (height 0))
    (unless (comic :id comic-id)
      (error 'database-invalid-field :message "Invalid comic specified."))
    (let* ((old-page (page comic-id :page-number page-number))
  