anchor.diff:  (define-grovel-syntax flag (flag-string)
     (push flag-string *cc-flags*))
   
  +;;; This form also has some "read time" effects. See GENERATE-C-FILE.
   (define-grovel-syntax in-package (name)
     (c-format out "(cl:in-package #:")
     (c-print-symbol out name t)
  
positive.code:   (make-pathname :type (subseq (cffi::default-library-suffix) 1)
                   :defaults defaults))
  
  (defun process-wrapper-file (input-file &optional (output-defaults input-file))
    (let ((*cc-flags* nil)
          (*package* *package*)
  
negative.code:         (generate-c-lib-file input-file output-defaults)
        (invoke-cc c-file lib-file :library t)
        ;; FIXME: hardcoded library path.
        (values (generate-bindings-file lib-file lisp-forms output-defaults)
                lib-file))))
  
  (defgeneric %process-wrapper-form (name out arguments)
  