anchor.diff:            ((:unsigned-long-long :ullong) "unsigned long long")
             (:pointer "void*")
             (:string "char*")
  -          (t (cffi::foreign-name (car spec)))))))
  +          (t (cffi::foreign-name (car spec) nil))))))
   
   (defun cffi-type (typespec)
     (if (and (listp typespec) (stringp (car typespec)))
  
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)
  