[slime-cvs] CVS slime

[heller]

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

Modified Files:
	slime.el 
Log Message:
(slime-global-variable-name-p): Simplified.


--- /project/slime/cvsroot/slime/slime.el	2006/10/28 17:43:28	1.678
+++ /project/slime/cvsroot/slime/slime.el	2006/10/29 07:11:50	1.679
@@ -5672,20 +5672,7 @@
 (defun slime-global-variable-name-p (name)
   "Is NAME a global variable?
 Globals are recognised purely by *this-naming-convention*."
-  (when (<= (length name) 2)
-    (return-from slime-global-variable-name-p nil))
-  (when (char-equal ?\: (aref name 0))
-    (return-from slime-global-variable-name-p nil))
-  (let ((package-prefix-end (cond
-                          ((search "::" name)
-                           (+ 2 (search "::" name)))
-                          ((search ":" name)
-                           (+ 1 (search ":" name)))
-                          (t
-                           0))))
-    (let ((first-char-in-name (aref name package-prefix-end)))
-      (and (member first-char-in-name '(?\* ?\+))
-           (char-equal first-char-in-name (aref name (1- (length name))))))))
+  (string-match "^\\(.*:\\)?\\([*+]\\).+\\2$" name))
 
 (defun slime-get-cached-autodoc (symbol-name)
   "Return the cached autodoc documentation for SYMBOL-NAME, or nil."