Commit abc6c634 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

WIP: ensure actions are not performed twice

parent 0603720b
......@@ -391,8 +391,15 @@ initialized with SEED."
(loop :for action :in (plan-actions plan)
:as o = (action-operation action)
:as c = (action-component action) :do
(unless (nth-value 1 (compute-action-stamp plan o c))
;;(unless (nth-value 1 (compute-action-stamp plan o c))
(unless (action-already-done-p plan o c)
(perform-with-restarts o c))))
#| (let ((plan-status (action-status plan o c))
(file-status (action-status nil o c)))
(setf (action-status plan o c)
(make-action-status
:stamp (action-stamp file-status) :done-p (action-done-p file-status)
:planned-p (action-planned-p plan-status) :index (action-index plan-status)))))))|#
(defmethod plan-operates-on-p ((plan plan-traversal) (component-path list))
(plan-operates-on-p (plan-actions plan) component-path))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment