[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv10779

Modified Files:
	swank-sbcl.lisp ChangeLog 
Log Message:
	Arglists of user-defined types are now displayed by slime-autodoc
	on SBCL.

	  (deftype foo (x y) `(cons ,x ,y))
	  (declare (type (foo |

	* swank-sbcl.lisp ([method] type-specifier-arglist): Make use of
	recently introduced SB-INTROSPECT:DEFTYPE-LAMBDA-LIST.


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2008/12/30 18:57:54	1.228
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2009/01/02 17:07:00	1.229
@@ -354,6 +354,12 @@
                                   flags :key #'ensure-list))
           (call-next-method)))))
 
+#+#.(swank-backend::sbcl-with-symbol 'deftype-lambda-list 'sb-introspect)
+(defmethod type-specifier-arglist :around (typespec-operator)
+  (multiple-value-bind (arglist foundp)
+      (sb-introspect:deftype-lambda-list typespec-operator)
+    (if foundp arglist (call-next-method))))
+
 (defvar *buffer-name* nil)
 (defvar *buffer-offset*)
 (defvar *buffer-substring* nil)
--- /project/slime/cvsroot/slime/ChangeLog	2009/01/02 16:43:21	1.1620
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/02 17:07:00	1.1621
@@ -1,5 +1,16 @@
 2009-01-01  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	Arglists of user-defined types are now displayed by slime-autodoc
+	on SBCL.
+
+	  (deftype foo (x y) `(cons ,x ,y))
+	  (declare (type (foo |
+
+	* swank-sbcl.lisp ([method] type-specifier-arglist): Make use of
+	recently introduced SB-INTROSPECT:DEFTYPE-LAMBDA-LIST.
+
+2009-01-01  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* swank-loader.lisp (*contribs*): Add `swank-sbcl-exts'.
 
 2009-01-01  Tobias C. Rittweiler  <tcr at freebits.de>