anchor.diff:        (push `(cffi:defcfun (,foreign-name-wrap ,lisp-name ,@options)
                    ,(cffi-type rettype)
                  ,@(mapcar (lambda (arg)
  -                           (list (cffi::lisp-name (first arg) nil)
  +                           (list (symbol* (first arg))
                                    (cffi-type (second arg))))
                            args))
               *lisp-forms*))))
  
positive.code:   (if (and (listp typespec) (stringp (car typespec)))
        (second typespec)
        typespec))
  
  (define-wrapper-syntax defwrapper (name-and-options rettype &rest args)
    (multiple-value-bind (lisp-name foreign-name options)
  
negative.code:       (push `(cffi:defcfun (,foreign-name-wrap ,lisp-name ,@options)
                   ,(cffi-type rettype)
                 ,@(mapcar (lambda (arg)
                             (list (symbol* (first arg))
                                   (cffi-type (second arg))))
                           args))
              *lisp-forms*))))
  