anchor.diff:  (defmethod perform ((o compile-op) (c c-file))
     (let ((i (first (input-files o c))))
       (destructuring-bind (.o .so) (output-files o c)
  -      (cc-compile .o (list i))
  +      (cc-compile .o (list i) (slot-value c 'cflags))
         (link-shared-library .so (list .o)))))
   
   (defmethod perform ((o load-op) (c c-file))
  
positive.code:         ((:dll :shared-library) (link-shared-library output inputs))))))
  
  (defclass c-file (source-file)
    ((cflags :initarg :cflags :initform :default)
     (type :initform "c")))
  
  (defmethod output-files ((o compile-op) (c c-file))
  
negative.code: (setf (find-class 'asdf::c-file) (find-class 'c-file))
  
  (defclass o-file (source-file)
    ((type :initform (bundle-pathname-type :object)))
    (:documentation "class for pre-compile object components"))
  
  (defmethod output-files ((op compile-op) (c o-file))
  