anchor.diff:  
   (defmacro with-foreign-object ((var type) &body body)
     "Wrap the allocation of a foreign object around BODY."
  -  `(cffi:with-foreign-object (,var (convert-uffi-type ,type))
  +  `(cffi:with-foreign-object (,var ,(convert-uffi-type-form type))
        ,@body))
   
   ;; Taken from UFFI's src/objects.lisp
  
positive.code: 
  (defmacro deref-pointer (ptr type)
    "Dereference a pointer."
    `(cffi:mem-ref ,ptr (convert-uffi-type ,type)))
  
  (defsetf deref-pointer (ptr type) (value)
    `(setf (cffi:mem-ref ,ptr (convert-uffi-type ,type)) ,value))
  
  (defmacro ensure-char-character (obj &environment env)
    "Convert OBJ to a character if it is an integer."
  
negative.code: 
  (defmacro size-of-foreign-type (type)
    "Return the size in bytes of a foreign type."
    `(cffi:foreign-type-size ,(convert-uffi-type-form type)))
  
  (defmacro pointer-address (ptr)
    "Return the address of a pointer."
  