X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmodule.lisp;h=866b7b38a0bb67ca2f0408a0664df6650968b1f6;hb=61dc1d5c0b4988f7e957be876a9abf9f31d51e0a;hp=c9f1861c2c110d97ea50daf5daa392e151695483;hpb=3ed86355f579d38d35483c5276331004f27d10cd;p=sbcl.git

diff --git a/src/code/module.lisp b/src/code/module.lisp
index c9f1861..866b7b3 100644
--- a/src/code/module.lisp
+++ b/src/code/module.lisp
@@ -24,7 +24,6 @@
 
 (defvar *module-provider-functions* '(module-provide-contrib)
   "See function documentation for REQUIRE")
-
 
 ;;;; PROVIDE and REQUIRE
 
@@ -55,7 +54,12 @@
 	    (t
 	     (unless (some (lambda (p) (funcall p module-name))
 			   *module-provider-functions*)
-	       (error "Don't know how to load ~A" module-name)))))
+	       (error 'extension-failure
+		      :format-control "Don't know how to ~S ~A"
+		      :format-arguments (list 'require module-name)
+		      :references
+		      (list
+		       '(:sbcl :variable *module-provider-functions*)))))))
     (set-difference *modules* saved-modules)))
 
 ;;;; miscellany