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