anchor.diff:    (make-pathname :type (subseq (cffi::default-library-suffix) 1)
                    :defaults defaults))
   
  +;;; *PACKAGE* is rebound so that the IN-PACKAGE form can set it during
  +;;; *the extent of a given grovel file.
   (defun process-wrapper-file (input-file &optional (output-defaults input-file))
     (let ((*cc-flags* nil)
           (*package* *package*)
  
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:        (destructuring-bind ,lambda-list ,args
           ,@body))))
  
  (define-wrapper-syntax progn (&rest forms)
    (dolist (form forms)
      (process-wrapper-form out form)))
  
  