diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-29 06:34:01 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-29 06:34:01 -0500 |
| commit | 30cf40b67c5f2bf8dcbdcbef5c6a7969d20908c6 (patch) | |
| tree | 7ae161182a446ce14b00410130614059763bb78d | |
| parent | 6d5da708925afcb935e9c99ea104caa548dc7894 (diff) | |
[bugfix] add-unit wasn't adding the container to the unit
| -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) |