diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-29 08:02:20 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-29 08:02:20 -0500 |
| commit | 4fc51c6d3b8825eb39b6e7f228c32b9de2c2ed5d (patch) | |
| tree | de9360e7d9049da239a3cc932fb21e08d761579f | |
| parent | a71dbdc2013a26bb82fae2e4489a84cb4c70a7f8 (diff) | |
[modify] first added is last drawn
| -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) |