From 8c1d1b650dc66d30689fce6a4d1f247796830f23 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Sun, 24 Jul 2016 18:23:52 -0500
Subject: [PATCH] MODULE-PROVIDE-ASDF catches SERIOUS-CONDITIONs, not just
 ERRORs.

---
 operate.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/operate.lisp b/operate.lisp
index 9a25f13aa..28b621c80 100644
--- a/operate.lisp
+++ b/operate.lisp
@@ -220,7 +220,7 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
           (handler-bind
               ((style-warning #'muffle-warning)
                (missing-component (constantly nil))
-               (error #'(lambda (e)
+               (serious-condition #'(lambda (e)
                           (format *error-output* (compatfmt "~@<ASDF could not load ~(~A~) because ~A.~@:>~%")
                                   name e))))
             (let ((*verbose-out* (make-broadcast-stream)))
-- 
GitLab