diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-23 10:44:40 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-23 10:44:40 -0500 |
| commit | 8fc1317f0c3c32e3d75b17260b9b0c3ed810fd76 (patch) | |
| tree | aae56cef22eb9e1b4a3e0a6a6ad159b355a7a8cc /src/wheelwork.lisp | |
| parent | 00841605110612f6e7f3bbfc054ceff980bf25be (diff) | |
[add] menu basics and [example]
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*))) |