From 98b5811d8b50d20f8c15e9b202f0d3f0457df58b Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 30 Jun 2022 09:29:28 -0500
Subject: [modify] affine fns are generic; [add] safe-slot util

---
 src/core/unit.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/core/unit.lisp')

diff --git a/src/core/unit.lisp b/src/core/unit.lisp
index 20e05e2..fb02f08 100644
--- a/src/core/unit.lisp
+++ b/src/core/unit.lisp
@@ -3,8 +3,9 @@
 (in-package #:wheelwork)
 
 (defclass/std unit ()
-  ((cached-application  :a)
-   (container :with :a)))
+  ((cached-application :a)
+   (container :with :a)
+   (visiblep :with :std t)))
 
 (defmethod (setf closer-mop:slot-value-using-class) :after
     (newval class (unit unit) slot)
@@ -28,3 +29,6 @@ in this application."
               (rec unit)))))
 
 
+(defmethod render :around ((unit unit))
+  (when (unit-visiblep unit)
+    (call-next-method)))
-- 
cgit v1.2.3