[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
Log Message:
* slime.el (slime-cl-symbol-name, slime-cl-symbol-package):
  Ressurected, as they're still used in this file. 
  Reported by Edward Cant.


--- /project/slime/cvsroot/slime/slime.el	2007/09/09 23:28:27	1.854
+++ /project/slime/cvsroot/slime/slime.el	2007/09/10 00:42:25	1.855
@@ -9206,6 +9206,24 @@
   (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)