diff options
| -rw-r--r-- | wheelwork.lisp | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp index a9d4a3d..55996b1 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -75,12 +75,8 @@ 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)) - - (unit-container unit) container) + (push unit (container-units container)) + (setf (unit-container unit) container) unit) |