anchor.diff:         ,@+profiling-option-spec+)
        "Create some blaze BUILD"
        "Create blaze BUILD rules to build a project." ignore)
  -  (apply 'make-build :blaze-BUILD-only t keys))
  +  (apply 'blaze-build :blaze-BUILD-only t keys))
   
   (defun invoke-blaze (&key target directory makefile ignore-error-status env)
     (let* ((make (or (getenv "MAKE") "make"))
  
positive.code:     (("READONLY-root" #\R) :type string :optional t :documentation "google3 root (default: from current dir)") ;; default: ${BUILD-root}/../READONLY/google3/
      (("package" #\P) :type string :optional t :documentation "BUILD package"))) ;; default: package for current dir under BUILD-root
  
  (defun initialize-blaze-parameters (&key build-root readonly-root package &allow-other-keys)
    (let* ((current-dir (unless (and build-root package)
                          (truename *default-pathname-defaults*)))
           (build-dir (unless package
                        (find-blaze-BUILD-directory current-dir)))
           (build-root (or build-root
                           (find-google3-directory (or build-dir current-dir))))
           (package-name (or package
                             (enough-namestring build-dir build-root)))
           (package-dir (if package
                            (subpathname build-root package)
                            current-dir))
           (readonly-root (if readonly-root
                              (truename readonly-root)
                              (probe-file* (subpathname build-root "../READONLY/google3/")))))
      (setf *BUILD-root* build-root
            *BUILD-package* package-name
            *BUILD-package-directory* package-dir
            *READONLY-BUILD-root* readonly-root))
    (values))
  
  (define-memo-function (BUILD-root-p :memo-variable *BUILD-root-p*) (dir)
    ;; This is way too specific to Google
  
negative.code:      "Use blaze to build your project"
       "Create blaze BUILD rules to build a package, use them."
       (build))
    (apply 'handle-blaze-options keys)
    (with-maybe-profiling ()
      (multiple-value-bind (blaze-BUILD-path blaze-BUILD-dir)
          (write-blaze-BUILD build)
  