[slime-cvs] CVS slime/contrib

trittweiler trittweiler at common-lisp.net
Mon Sep 10 00:43:18 UTC 2007


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

Modified Files:
	slime-parse.el 
Log Message:

* slime-parse.el (slime-cl-symbol-name, slime-cl-symbol-package):
  Moved back into slime.el.


--- /project/slime/cvsroot/slime/contrib/slime-parse.el	2007/09/05 18:49:00	1.3
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el	2007/09/10 00:43:18	1.4
@@ -25,23 +25,6 @@
                                 (slime-parse-sexp-at-point 
 				 (1+ (first arg-indices)))))))))))
 
-;;;;; 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)))
-
 ;; XXX: unused function
 (defun slime-cl-symbol-external-ref-p (symbol)
   "Does SYMBOL refer to an external symbol?




More information about the slime-cvs mailing list