[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(symbol-indentation): Oops.  Consider symbols other then 'defmethod'
and use prefix-match-p.
Date: Fri Apr 30 03:28:23 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.181 slime/swank.lisp:1.182
--- slime/swank.lisp:1.181	Fri Apr 30 02:34:03 2004
+++ slime/swank.lisp	Fri Apr 30 03:28:23 2004
@@ -1653,9 +1653,9 @@
 The form is to be used as the `common-lisp-indent-function' property
 in Emacs."
   (if (and (macro-function symbol)
-           (let ((s (symbol-name 'defmethod)))
-             (not (or (search "DEF" s :end2 (min (length s) 3))
-                      (search "WITH-" s :end2 (min (length s) 5))))))
+           (let ((name (symbol-name symbol)))
+             (not (or (prefix-match-p "DEF" name)
+                      (prefix-match-p "WITH-" name)))))
       (let ((arglist (arglist symbol)))
         (etypecase arglist
           ((member :not-available)