[slime-cvs] CVS slime/contrib
CVS User sboukarev
sboukarev at common-lisp.net
Thu Oct 28 13:30:31 UTC 2010
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)
More information about the slime-cvs
mailing list