anchor.diff:           ,@args))))
   
   (defmacro defsyscall (name-and-opts return-type &body args)
  +  "Like CFFI:DEFCFUN, in addition it DECLAIMs the function INLINE and
  +wraps the return value using SYSCALL-WRAPPER."
     (multiple-value-bind (lisp-name c-name options)
         (cffi::parse-name-and-options name-and-opts)
       `(progn
  
positive.code:          ,@args))))
  
  (defmacro defkernel (name-and-opts return-type &body body)
    (destructuring-bind (type &rest keyargs)
        (ensure-list return-type)
      (assert (eql :int type))
  
negative.code: ;;;-------------------------------------------------------------------------
  
  (defmacro defentrypoint (name (&rest args) &body body)
    "Like DEFUN, in addition it DECLAIMs the function INLINE."
    `(progn
       (declaim (inline ,name))
       (defun ,name ,args ,@body)))
  
  (defmacro defcfun* (name-and-opts return-type &body args)
    "Like CFFI:DEFCFUN, in addition it DECLAIMs the function INLINE."
    (multiple-value-bind (lisp-name c-name options)
        (cffi::parse-name-and-options name-and-opts)
      `(progn
  