anchor.diff:  
   (defmacro defcfun* (name-and-opts return-type &body args)
     (multiple-value-bind (lisp-name c-name options)
  -      (cffi::parse-name-and-options name-and-opts)
  +      (parse-name-and-options name-and-opts)
       `(progn
          (declaim (inline ,lisp-name))
          (defcfun (,c-name ,lisp-name ,@options) ,return-type
  
positive.code: 
  
  (defmacro defentrypoint (name (&rest args) &body body)
    `(progn
       (declaim (inline ,name))
  
negative.code: 
  (defmacro defsyscall (name-and-opts return-type &body args)
    (multiple-value-bind (lisp-name c-name options)
        (parse-name-and-options name-and-opts)
      `(progn
         (declaim (inline ,lisp-name))
         (defcfun (,c-name ,lisp-name ,@options)
  