anchor.diff:  
   (define-standard-compiler-method c-link (c-compiler)
     ("-shared~*" shared)
  -  ("-Wl~{,~a~}" options))
  +  ("-Wl~{,~a~}" linker))
   
   (defgeneric c-compile (c-compiler from to &key &allow-other-keys)
     (:method (compiler from to &rest args)
  
positive.code: 
  (define-standard-compiler-method c-preprocess (c-compiler)
    ("-E~*" T)
    ("-Wp~{,~a~}" options))
  
  (defgeneric c-assemble (c-compiler from to &key &allow-other-keys)
    (:method (compiler from to &rest args)
  
negative.code:     (flet ((call-with (type function from to)
               (apply function
                      from to
                      (find-symbol (string type) :org.shirakumo.abcd) (getf options type)
                      args)))
        (cond ((and preprocess assemble link)
               (with-cleaned-files (processed (mapcar #'processed-file from))
  