Browse files

Add restart to escape class redefinition notification

  • Loading branch information...
Shinmera committed Mar 6, 2018
1 parent 7d81c2d commit a3b623ac9840091f58e9f19fb258349fab973a66
Showing with 2 additions and 1 deletion.
  1. +2 −1 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)))

0 comments on commit a3b623a

Please sign in to comment.