[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory tiger.common-lisp.net:/tmp/cvs-serv25982/contrib

Modified Files:
	ChangeLog swank-util.lisp 
Log Message:
* swank-backend.lisp (type-specifier-p): New.
Implement it for ACL, ECL, CCL, Clisp, SBCL, LW.

* contrib/swank-util.lisp (symbol-classification-string): Use
type-specifier-p.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2013/02/02 09:48:51	1.568
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2013/02/02 10:11:17	1.569
@@ -1,5 +1,8 @@
 2013-02-02  Stas Boukarev  <stassats at gmail.com>
 
+	* swank-util.lisp (symbol-classification-string): Use
+	type-specifier-p.
+
 	* swank-fuzzy.lisp: Allow NIL to be completed, don't confuse with
 	it package:
 
--- /project/slime/cvsroot/slime/contrib/swank-util.lisp	2012/03/06 20:55:13	1.2
+++ /project/slime/cvsroot/slime/contrib/swank-util.lisp	2013/02/02 10:11:17	1.3
@@ -44,10 +44,7 @@
 boundp fboundp generic-function class macro special-operator package"
   (let ((letters "bfgctmsp")
         (result (copy-seq "--------")))
-    (flet ((type-specifier-p (s)
-             (or (documentation s 'type)
-                 (not (eq (type-specifier-arglist s) :not-available))))
-           (flip (letter)
+    (flet ((flip (letter)
              (setf (char result (position letter letters))
                    letter)))
       (when (boundp symbol) (flip #\b))