Add restart to escape class redefinition notification

Shirakumo · Mar 7, 2018 · a3b623a · a3b623a
1 parent 7d81c2d
commit a3b623a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/redefinition-notifying-class.lisp b/redefinition-notifying-class.lisp
@@ -31,7 +31,8 @@
 (defmethod notify-class-redefinition ((class redefinition-notifying-class) redef)
   (loop for pointer in (%class-redefinition-listeners class)
         for listener = (tg:weak-pointer-value pointer)
-        when listener do (notify-class-redefinition listener redef)))
+        when listener do (with-simple-restart (continue "Ignore redefinition listener.")
+                           (notify-class-redefinition listener redef))))
 
 (defmethod class-redefinition-listeners ((class symbol))
   (class-redefinition-listeners (find-class class)))