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: 
  (defun generate-c-lib-file (input-file output-defaults)
    (let ((*lisp-forms* nil)
          (c-file (make-pathname :type "c" :defaults output-defaults)))
      (with-open-file (out c-file :direction :output :if-exists :supersede)
        (with-open-file (in input-file :direction :input)
          (write-string *header* out)
  
negative.code: (defun header-form-p (form)
    (member (form-kind form) *header-forms*))
  
  (defun make-c-file-name (output-defaults)
    (make-pathname :type "c" :defaults output-defaults))
  
  (defun generate-c-file (input-file output-defaults)
    (let ((c-file (make-c-file-name output-defaults)))
      (with-open-file (out c-file :direction :output :if-exists :supersede)
        (with-open-file (in input-file :direction :input)
          (flet ((read-forms (s)
  