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:      source-registry)
      (t
       (with-output-to-string (s)
         (loop :for entry :in (split-string source-registry :separator ";")
           :for previousp = nil
           :for recursep = (string-suffix-p entry "//") :do
           (labels ((x (p)
                      (when p
                        (format s "~@[:~]~A~@[/~]"
                                previousp (ensure-directory-pathname p)
                                recursep))))
             (if (find #\: entry)
                 (x (label->pathname
                     entry :root root :readonly-root readonly-root))
  
negative.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)
  