From bb6e0a1de5b1dc8bee67d6fabba7c8655b7584b6 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Wed, 12 Feb 2014 16:01:43 -0500
Subject: [PATCH] Fix backward-compatible propagation of operations, by only
 effecting them on parent classes. Also, do the sideways dependencies FIRST.

---
 action.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/action.lisp b/action.lisp
index 049176b4..67725bd9 100644
--- a/action.lisp
+++ b/action.lisp
@@ -253,8 +253,8 @@ The class needs to be updated for ASDF 3.1 and specify appropriate propagation m
       ;; or non-propagation through an appropriate mixin will be downward and sideway.
       ,@(unless (typep o '(or downward-operation upward-operation sideway-operation
                               selfward-operation non-propagating-operation))
-          `(,@(downward-operation-depends-on o c)
-            ,@(sideway-operation-depends-on o c)))))
+          `(,@(sideway-operation-depends-on o c)
+            ,@(when (typep c 'parent-component) (downward-operation-depends-on o c))))))
 
   (defmethod downward-operation ((o operation)) nil)
   (defmethod sideway-operation ((o operation)) nil))
-- 
GitLab