From 8fc1317f0c3c32e3d75b17260b9b0c3ed810fd76 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Sat, 23 Jul 2022 10:44:40 -0500
Subject: [add] menu basics and [example]

---
 src/wheelwork.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/wheelwork.lisp')

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*)))
-- 
cgit v1.2.3