anchor.diff:    (c-format out ")~%")
     (unless (keywordp lisp-name)
       (c-export out lisp-name))
  -  (let ((size-of-constant-name
  -         (symbolicate '#:size-of- lisp-name)))
  +  (let ((size-of-constant-name (symbolicate '#:size-of- lisp-name)))
       (c-export out size-of-constant-name)
       (c-format out "(cl:defconstant "
                 size-of-constant-name lisp-name)
  
positive.code:   (let ((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)
          (let* ((forms (loop for form = (read in nil nil)
                              while form collect form))
                 (header-forms (remove-if-not #'header-form-p forms))
                 (body-forms (remove-if #'header-form-p forms)))
            (write-string *header* out)
  
negative.code:               do (process-wrapper-form out form))))
      (values c-file (nreverse *lisp-forms*))))
  
  (defun generate-bindings-file (lib-file lisp-forms output-defaults)
    (let ((lisp-file (tmp-lisp-filename output-defaults)))
      (with-open-file (out lisp-file :direction :output :if-exists :supersede)
        (format out ";;;; This file was automatically generated by cffi-grovel.~%~
                     ;;;; Do not edit by hand.~%")
        (let ((*package* (find-package '#:cl)))
          (format out "~%~S~%" `(cffi:load-foreign-library ,lib-file)))
        (dolist (form lisp-forms)
          (print form out))
        (terpri out))
  