aboutsummaryrefslogtreecommitdiffhomepage
path: root/wheelwork.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'wheelwork.lisp')
-rw-r--r--wheelwork.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp
index 6dd8f64..9d7571d 100644
--- a/wheelwork.lisp
+++ b/wheelwork.lisp
@@ -63,9 +63,9 @@
(defmethod drop-unit ((unit unit))
"Removes a unit from its container. Returns T if the unit actually was removed."
- (when (unit-container unit)
+ (when-let (container (unit-container unit))
(setf
- (container-units (unit-container unit)) (delete unit (container-units (unit-container unit)))
+ (container-units container) (delete unit (container-units container))
(unit-container unit) nil)
t))