Fix shader subjects not triggering instance obsoletion on effective s…

…hader change.
Shirakumo · Oct 29, 2017 · 83570f9 · 83570f9
1 parent 99e3824
commit 83570f9
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/shader-subject.lisp b/shader-subject.lisp
@@ -9,6 +9,11 @@
 (defclass shader-subject-class (subject-class shader-entity-class)
   ())
 
+(defmethod (setf effective-shaders) :after (shaders (class shader-subject-class))
+  ;; Mark as obsolete
+  (setf (class-redefinition-event-sent class) NIL)
+  (make-instances-obsolete class))
+
 (defclass shader-subject (subject shader-entity)
   ()
   (:metaclass shader-subject-class))