anchor.diff:                (BITMAP :POINTER) (PAGE :INT)) 
   
   (CFFI:DEFCFUN ("FreeImage_UnlockPage" FREEIMAGE-UNLOCKPAGE) :VOID
  -              (BITMAP :POINTER) (DATA :POINTER) (CHANGED :POINTER)) 
  +              (BITMAP :POINTER) (DATA :POINTER) (CHANGED :int)) 
   
   (CFFI:DEFCFUN ("FreeImage_MovePage" FREEIMAGE-MOVEPAGE) :POINTER
                 (BITMAP :POINTER) (TARGET :INT) (SOURCE :INT)) 
  
positive.code: 		  (,bits))
  	      
  	      (when (or ,mwidth ,mheight)
  		(let* ((,new-dib (freeimage:freeimage-rescale ,dib ,mwidth ,mheight :FILTER-BILINEAR)))
  		  (freeimage:unload-dib ,dib)
  		  (setf ,dib ,new-dib)
  
negative.code:               (TAG :POINTER) (VALUE :POINTER)) 
  
  (CFFI:DEFCFUN ("FreeImage_FindFirstMetadata" FREEIMAGE-FINDFIRSTMETADATA)
                :POINTER (MODEL FREE-IMAGE-MDMODEL) (DIB :POINTER) (TAG :POINTER)) 
  
  (CFFI:DEFCFUN ("FreeImage_FindNextMetadata" FREEIMAGE-FINDNEXTMETADATA)
                :int (MDHANDLE :POINTER) (TAG :POINTER)) 
  
  (CFFI:DEFCFUN ("FreeImage_FindCloseMetadata" FREEIMAGE-FINDCLOSEMETADATA) :VOID
                (MDHANDLE :POINTER)) 
  