From 30cf40b67c5f2bf8dcbdcbef5c6a7969d20908c6 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 29 Jun 2022 06:34:01 -0500 Subject: [bugfix] add-unit wasn't adding the container to the unit --- wheelwork.lisp | 9 ++++++--- 1 file 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) -- cgit v1.2.3