[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-cl-symbol-name, slime-cl-symbol-package): Move to
contrib/slime-parse.el.



--- /project/slime/cvsroot/slime/ChangeLog	2007/09/10 21:38:34	1.1212
+++ /project/slime/cvsroot/slime/ChangeLog	2007/09/10 21:45:17	1.1213
@@ -1,4 +1,4 @@
-2007-09-10  Helmut Eller  <helmut at localhost>
+2007-09-10  Helmut Eller  <heller at common-lisp.net>
 
 	Fix some bugs introduced while moving doc refs to contrib.
 	
@@ -7,7 +7,9 @@
 	* slime.el (sldb-dispatch-extras): Add missing quote.
 	(slime-sbcl-manual-root): Move definition to
 	contrib/slime-references.el.
-
+	(slime-cl-symbol-name, slime-cl-symbol-package): Move to
+	contrib/slime-parse.el.
+	
 2007-09-10  Helmut Eller  <heller at common-lisp.net>
 
 	Move SBCL doc references to contrib.
--- /project/slime/cvsroot/slime/slime.el	2007/09/10 21:38:34	1.858
+++ /project/slime/cvsroot/slime/slime.el	2007/09/10 21:45:17	1.859
@@ -9098,24 +9098,6 @@
   (or (slime-sexp-at-point)
       (error "No expression at point.")))
 
-;;;;; Common Lisp-style package-qualified symbols
-
-(defun slime-cl-symbol-name (symbol)
-  (let ((n (if (stringp symbol) symbol (symbol-name symbol))))
-    (if (string-match ":\\([^:]*\\)$" n)
-	(let ((symbol-part (match-string 1 n)))
-          (if (string-match "^|\\(.*\\)|$" symbol-part)
-              (match-string 1 symbol-part)
-              symbol-part))
-      n)))
-
-(defun slime-cl-symbol-package (symbol &optional default)
-  (let ((n (if (stringp symbol) symbol (symbol-name symbol))))
-    (if (string-match "^\\([^:]*\\):" n)
-	(match-string 1 n)
-      default)))
-
-
 ;;;; Portability library
 
 (when (featurep 'xemacs)