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