[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-package-fu.lisp 
Log Message:
* swank-package-fu.lisp (list-structure-symbols): Include the name
of the structure too.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/10/17 10:17:31	1.424
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/10/28 13:30:31	1.425
@@ -1,3 +1,8 @@
+2010-10-28  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-package-fu.lisp (list-structure-symbols): Include the name
+	of the structure too.
+
 2010-10-17  Helmut Eller  <heller at common-lisp.net>
 
 	Some updates to the Kawa backend.
--- /project/slime/cvsroot/slime/contrib/swank-package-fu.lisp	2010/07/24 23:39:24	1.4
+++ /project/slime/cvsroot/slime/contrib/swank-package-fu.lisp	2010/10/28 13:30:31	1.5
@@ -21,7 +21,8 @@
 #+sbcl
 (defun list-structure-symbols (name)
   (let ((dd (sb-kernel:find-defstruct-description name )))
-    (list* (sb-kernel:dd-default-constructor dd)
+    (list* name
+           (sb-kernel:dd-default-constructor dd)
            (sb-kernel:dd-predicate-name dd)
            (sb-kernel::dd-copier-name dd)
            (mapcar #'sb-kernel:dsd-accessor-name
@@ -30,7 +31,8 @@
 #+ccl
 (defun list-structure-symbols (name)
   (let ((definition (gethash name ccl::%defstructs%)))
-    (list* (ccl::sd-constructor definition)
+    (list* name
+           (ccl::sd-constructor definition)
            (ccl::sd-refnames definition))))
 
 (defun list-class-symbols (name)