From e586c03cc218fd09553f3242b241c8d3b15bb05d Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 5 Aug 2023 10:05:04 -0700
Subject: Add docstring to add-unit

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

diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp
index b4c5431..506ba9b 100644
--- a/src/wheelwork.lisp
+++ b/src/wheelwork.lisp
@@ -5,7 +5,8 @@
 (defvar *application* nil
   "current application")
 
-(defgeneric add-unit (unit))
+(defgeneric add-unit (unit)
+  (:documentation "Adds a display unit to the display."))
 
 (defmethod add-unit ((unit unit))
   "Adds a unit to the display."
-- 
cgit v1.2.3