aboutsummaryrefslogtreecommitdiffhomepage
path: root/src/core/unit.lisp
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-06-30 09:29:28 -0500
committerColin Okay <colin@cicadas.surf>2022-06-30 09:29:28 -0500
commit98b5811d8b50d20f8c15e9b202f0d3f0457df58b (patch)
tree6562850bbd01236cac901208d528ca2dacf83dc0 /src/core/unit.lisp
parent642c0c594a8abe05be1cb887110ed3e602cd0e48 (diff)
[modify] affine fns are generic; [add] safe-slot util
Diffstat (limited to 'src/core/unit.lisp')
-rw-r--r--src/core/unit.lisp8
1 files changed, 6 insertions, 2 deletions
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)))