[slime-cvs] CVS update: slime/slime.el

[Alan Ruttenberg]

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

Modified Files:
	slime.el 
Log Message:

Date: Mon Aug 15 20:15:50 2005
Author: aruttenberg

Index: slime/slime.el
diff -u slime/slime.el:1.525 slime/slime.el:1.526
--- slime/slime.el:1.525	Sun Aug 14 19:36:37 2005
+++ slime/slime.el	Mon Aug 15 20:15:50 2005
@@ -4551,9 +4551,15 @@
             (name (regexp-quote name))
             (qualifiers (mapconcat (lambda (el) (concat ".+?\\<" el "\\>"))
                                    qualifiers ""))
-            (specializers (mapconcat (lambda (el) (concat ".+?\\<" el "\\>"))
+            (specializers (mapconcat (lambda (el) 
+                                       (if (eql (aref el 0) 40)
+                                           (let ((spec (read el)))
+                                             (if (eq (car spec) 'EQL)
+                                                 (concat ".*?\\n\\{0,1\\}.*?(EQL.*?'\\{0,1\\}" (format "%s" (second spec)) ")")
+                                               (error "don't understand specializer: %s,%s" el (car spec))))
+                                         (concat ".+?\n\\{0,1\\}.+?\\<" el "\\>")))
                                      (remove "T" specializers) ""))
-            (regexp (format "\\s *(def\\(\\s_\\|\\sw\\)*\\s +%s\\>%s%s" name
+            (regexp (format "\\s *(def\\(\\s_\\|\\sw\\)*\\s +%s\\s +%s%s" name
                             qualifiers specializers)))
        (or (and (re-search-forward regexp  nil t)
                 (goto-char (match-beginning 0)))