Skip to content
Snippets Groups Projects
Commit bb6e0a1d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix backward-compatible propagation of operations,

by only effecting them on parent classes.
Also, do the sideways dependencies FIRST.
parent 8844b8d4
No related branches found
No related tags found
No related merge requests found
...@@ -253,8 +253,8 @@ The class needs to be updated for ASDF 3.1 and specify appropriate propagation m ...@@ -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. ;; or non-propagation through an appropriate mixin will be downward and sideway.
,@(unless (typep o '(or downward-operation upward-operation sideway-operation ,@(unless (typep o '(or downward-operation upward-operation sideway-operation
selfward-operation non-propagating-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 downward-operation ((o operation)) nil)
(defmethod sideway-operation ((o operation)) nil)) (defmethod sideway-operation ((o operation)) nil))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment