anchor.diff:      (let* ((foreign-name-wrap (strcat foreign-name "_cffi_wrap"))
              (fargs (mapcar (lambda (arg)
                               (list (c-type-name (second arg))
  -                                  (cffi::foreign-name (first arg))))
  +                                  (cffi::foreign-name (first arg) nil)))
                             args))
              (fargnames (mapcar #'second fargs)))
         ;; output C code
  
positive.code:       (push `(cffi:defcfun (,foreign-name-wrap ,lisp-name ,@options)
                   ,(cffi-type rettype)
                 ,@(mapcar (lambda (arg)
                             (list (cffi::lisp-name (first arg))
                                   (cffi-type (second arg))))
                           args))
              *lisp-forms*))))
  
negative.code:     (let ((foreign-name-wrap (strcat foreign-name "_cffi_wrap"))
            (fargs (mapcar (lambda (arg)
                             (list (c-type-name (second arg))
                                   (cffi::foreign-name (first arg) nil)))
                           args)))
        (format out "~A ~A" (c-type-name rettype)
                foreign-name-wrap)
  