anchor.diff:    `(zerop ,val))
   
   (defmacro def-enum (enum-name args &key (separator-string "#"))
  -  "Creates a constants for a C type enum list, symbols are created
  -in the created in the current package. The symbol is the concatenation
  -of the enum-name name, separator-string, and field-name"
  +  "Creates a constants for a C type enum list, symbols are
  +created in the created in the current package. The symbol is the
  +concatenation of the enum-name name, separator-string, and
  +field-name"
     (let ((counter 0)
           (cmds nil)
           (constants nil))
  
positive.code:   (declare (ignore type))
    `(cffi:defctype ,name :pointer))
  
  (defmacro deref-array (array type position)
    "Dereference an array."
    `(cffi:foreign-aref ,array ,type ,position))
  
negative.code:   (declare (ignore module))
    `(cffi:defcfun ,name ,(convert-uffi-type returning)
       ,@(loop for (name type) in args
               collect `(,name ,(convert-uffi-type type)))))
  