anchor.diff:       (if (listp uffi-type)
            (case (car uffi-type)
              (* :pointer)
  +           ;; TODO: This function should accept an addition CONTEXT
  +           ;; parameter which handles :ARRAY types differently when
  +           ;; used as the argument to DEREF-ARRAY vs other macros.  It
  +           ;; also should probably return a second value indicating
  +           ;; the number of objects to allocate in certain situations.
              (:array (error "Array types are not yet supported.")))
            uffi-type))))
   
  
positive.code:   `(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"
    (let ((counter 0)
          (cmds nil)
          (constants nil))
  
negative.code:   (declare (ignore module))
    `(cffi:defcfun ,name ,(convert-uffi-type returning)
       ,@(loop for (name type) in args
               collect `(,name ,(convert-uffi-type type)))))
  