From 4fc51c6d3b8825eb39b6e7f228c32b9de2c2ed5d Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 29 Jun 2022 08:02:20 -0500 Subject: [modify] first added is last drawn --- wheelwork.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'wheelwork.lisp') 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) -- cgit v1.2.3