kyle
/
kutils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update docs for list-all-slots.

This commit is contained in:
Kyle 2015-11-05 12:47:25 -08:00
parent b3aafb4a8a
commit 5dbe825934
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
docs/manual.scr
View File

@ -285,7 +285,8 @@ resulting string to @c(path). Any remaining arguments are sent to
The package @c(kutils-mop) contains utilities taking advantage of the The package @c(kutils-mop) contains utilities taking advantage of the
metaobject protocol. metaobject protocol.
The @c(list-all-slots) will return a list of all slots in an object. The @c(list-all-slots) function will return a list of all slots in an
object.
@cl:with-package[name="kutils-mop"]( @cl:with-package[name="kutils-mop"](
@cl:doc(function list-all-slots)) @cl:doc(function list-all-slots))

2
kmop/kmop.lisp
View File

@ -31,6 +31,8 @@
(defun list-all-slots (class-sym &optional (package *package*)) (defun list-all-slots (class-sym &optional (package *package*))
"Given a class symbol (and optionally a package to search in),
return a list of all the slots in an instance of that class."
(let ((class-val (find-class (let ((class-val (find-class
(find-symbol (find-symbol
(mkstr class-sym) (mkstr class-sym)