[slime-cvs] CVS slime

[trittweiler]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv19230

Modified Files:
	swank.lisp 
Log Message:
* swank.lisp (apropos-symbols): Really use MAKE-REGEXP-MATCHER.


--- /project/slime/cvsroot/slime/swank.lisp	2007/05/10 17:54:31	1.480
+++ /project/slime/cvsroot/slime/swank.lisp	2007/05/11 14:41:03	1.481
@@ -4254,7 +4254,7 @@
 (defun apropos-symbols (string external-only case-sensitive package)
   (let ((packages (or package (remove (find-package :keyword)
                                       (list-all-packages))))
-        (matcher  (make-apropos-matcher string case-sensitive))
+        (matcher  (make-regexp-matcher string case-sensitive))
         (result))
     (with-package-iterator (next packages :external :internal)
       (loop (multiple-value-bind (morep symbol) (next)