diff options
Diffstat (limited to 'src/core/unit.lisp')
| -rw-r--r-- | src/core/unit.lisp | 8 |
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))) |