anchor.diff:      :initform nil
       :accessor traversed-dependencies-r)
      (included-dependencies ;;; dependencies included in the current image
  +    :initform nil
       :accessor included-dependencies)
      (load-commands-r ;;; load commands issued so far to run the current compilation.
       :initform nil
  
positive.code:         (graph-for env `(:image ,post-image-name))
          (make-phony-grain
           :name `(:build ,(fullname grain))
           :dependencies (graph-for*
                          env (append (compile-dependencies grain) (load-dependencies grain)))))))
  
  (define-graph-for :image (env name)
    (cond
  
negative.code:        t))
  
  (define-simple-dispatcher graph-for #'graph-for-atom)
  
  (defmethod graph-for ((env static-traversal) spec)
    (let* ((current-grains-r (traversed-grain-names-r env))
  