anchor.diff:    (declare (ignore module))
     `(cffi:defcfun ,name ,(convert-uffi-type returning)
        ,@(loop for (name type) in args
  -             collect `(,name ,(convert-uffi-type type)))))+             collect `(,name ,(convert-uffi-type type)))))
  
positive.code:      (if (listp uffi-type)
           (case (car uffi-type)
             (* :pointer)
             (:array (error "Array types are not yet supported.")))
           uffi-type))))
  
  
negative.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))
  