diff options
| -rw-r--r-- | wheelwork.lisp | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp index cdfec40..6dd8f64 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -75,9 +75,12 @@ order). Makes sure to remove the unit from its current container if necessary." (when (unit-container unit) (drop-unit unit)) - (setf (container-units container) - (nconc (container-units container) - (list unit))) + (setf + (container-units container) + (nconc (container-units container) + (list unit)) + + (unit-container unit) container) unit) |