anchor.diff:                             (transcript :text)
                              (image-uri (:varchar 128))
                              (thumb-uri (:varchar 128))
  -                           (double-page (:integer 1)))))
  +                           (double-page (:integer 1))
  +                           (width (:integer 8))
  +                           (height (:integer 8)))))
   
   (defun comics (&optional author)
     "Gets all of the comics. All of them. Or just for an author."
  
positive.code:                                                       :transcript ,transcript
                                                        :image-uri ,image-uri
                                                        :thumb-uri ,thumb-uri
                                                        :double-page ,(if double-page 1 0)))))
      (if old-page
          (db:update 'comic-page
                     (db:query (:and (:= 'comic-id comic-id)
  
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))
  