X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fgc.lisp;h=c4f84de5e215581ff948e5111e74a00ec0dce398;hb=a01e7ac2e8a9f3afae8f759381a0829fceb5bfde;hp=7ba3b3b3e05f7e3a2e50819992006df7b7018cec;hpb=77d46c398278c0bbe221722c21c01d47713cd878;p=sbcl.git

diff --git a/src/code/gc.lisp b/src/code/gc.lisp
index 7ba3b3b..c4f84de 100644
--- a/src/code/gc.lisp
+++ b/src/code/gc.lisp
@@ -248,11 +248,7 @@ run in any thread.")
            ;; for finalizers and after-gc hooks.
            (when (sb!thread:thread-alive-p sb!thread:*current-thread*)
              (run-pending-finalizers)
-             (dolist (hook *after-gc-hooks*)
-               (handler-case
-                   (funcall hook)
-                 (serious-condition (c)
-                   (warn "Error calling after-GC hook ~S:~% ~A" hook c)))))))))
+             (call-hooks "after-GC" *after-gc-hooks* :on-error :warn))))))
 
 ;;; This is the user-advertised garbage collection function.
 (defun gc (&key (gen 0) (full nil) &allow-other-keys)