[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