anchor.diff:                                                 standard
                                                  shared
                                                  options
  -                                               arguments
                                                  preprocess
                                                  assemble
                                                  link
  
positive.code:                                                   source
                                                    standard
                                                    options
                                                    arguments
                            &allow-other-keys)
    (:method ((compiler T) from to &rest args &key)
      (apply #'c-preprocess *default-compiler* from to args))
    (:method ((c-compiler c-compiler) from to &key warnings
                                                   source
                                                   standard
                                                   options
                                                   arguments)
      (invoke c-compiler
              (shellify
               ("-E~*" T)
  
negative.code:              ("-x~a" source)
               ("-std=~a" standard)
               ("-Wp~{,~a~}" options)
               ("-o ~a" to)
               ("~a" from)))))
  
  