[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv7948

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (swank-require): Ensure that provide as called.

--- /project/slime/cvsroot/slime/ChangeLog	2012/02/14 16:46:33	1.2297
+++ /project/slime/cvsroot/slime/ChangeLog	2012/03/06 20:55:07	1.2298
@@ -1,3 +1,7 @@
+2012-03-06  Helmut Eller  <heller at common-lisp.net>
+
+	* swank.lisp (swank-require): Ensure that provide as called.
+
 2012-02-12  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-ecl.lisp (accept-connection): Use the proper element-type
--- /project/slime/cvsroot/slime/swank.lisp	2012/01/06 09:02:43	1.782
+++ /project/slime/cvsroot/slime/swank.lisp	2012/03/06 20:55:07	1.783
@@ -2516,7 +2516,9 @@
     (unless (member (string module) *modules* :test #'string=)
       (require module (if filename
                           (filename-to-pathname filename)
-                          (module-filename module)))))
+                          (module-filename module)))
+      (assert (member (string module) *modules* :test #'string=)
+              () "Required module ~s was not provided" module)))
   *modules*)
 
 (defvar *find-module* 'find-module