anchor.diff:  (setf (find-class 'asdf::c-file) (find-class 'c-file))
   
   (defclass o-file (source-file)
  -  ((cflags :initarg :cflags :initform :default)
  -   (type :initform (bundle-pathname-type :object)))
  +  ((type :initform (bundle-pathname-type :object)))
     (:documentation "class for pre-compile object components"))
   
   (defmethod output-files ((op compile-op) (c o-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:   (with-temporary-output (output-file)
      (apply 'invoke `(,@builder ,output-file ,@args))))
  
  (defun cc-compile (output-file inputs &optional cflags)
    (apply 'invoke-builder (list *cc* "-o") output-file
           "-c" (append *cc-flags* cflags #-windows '("-fPIC") inputs)))
  
  (defun link-executable (output-file inputs)
    (apply 'invoke-builder (list *ld* "-o") output-file
  