diff options
Diffstat (limited to 'src/wheelwork.lisp')
| -rw-r--r-- | src/wheelwork.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp index 4a20553..e411c52 100644 --- a/src/wheelwork.lisp +++ b/src/wheelwork.lisp @@ -6,11 +6,13 @@ "current application") (defun add-unit (unit) + "Adds a unit to the display." (assert *application*) (push unit (application-scene *application*)) (setf (unit-in-scene-p unit) t)) (defun drop-unit (unit) + "A removes a unit from the display." (assert *application*) (setf (application-scene *application*) (delete unit (application-scene *application*))) |