anchor.diff:           (source-registry (resolve-blaze-source-registry
                              source-registry
                              :root build-root :readonly-root readonly-root))
  -         (lisp-binary-path (label->pathname lisp-binary-path)))
  +         (lisp-binary-path (label->pathname lisp-binary-path
  +					    :root build-root :readonly-root readonly-root)))
       (setf *BUILD-root* build-root
             *BUILD-package* package-name
             *BUILD-package-directory* package-dir
  
positive.code:   "current BUILD package directory")
  
  (define-option-spec +blaze-option-spec+
    '((("BUILD-root" #\r) :type string :optional t :documentation "root of BUILD packges") ;; default: google3 ancestor of current directory
      (("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 resolve-blaze-source-registry (source-registry &key root readonly-root)
  
negative.code:           (unless (and build-root package)
              (truename *default-pathname-defaults*)))
           (build-dir
            (or package
  	      (find-BUILD-directory current-dir)
  	      (error "Can't find BUILD directory")))
           (build-root
            (or build-root
  	      (find-BUILD-root (or build-dir current-dir))
  	      (error "Can't find BUILD root directory")))
           (package-name
            (or package
  	      (enough-namestring build-dir build-root)))
           (package-dir
            (if package
                (subpathname build-root package)
  