From 5dbe8259342c2afe9c3e5159ba8b0d4ffc69fcd8 Mon Sep 17 00:00:00 2001 From: Kyle Date: Thu, 5 Nov 2015 12:47:25 -0800 Subject: [PATCH] Update docs for list-all-slots. --- docs/manual.scr | 3 ++- kmop/kmop.lisp | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/docs/manual.scr b/docs/manual.scr index 4af16f4..dd9b459 100644 --- a/docs/manual.scr +++ b/docs/manual.scr @@ -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 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:doc(function list-all-slots)) diff --git a/kmop/kmop.lisp b/kmop/kmop.lisp index 11b85ea..b74712b 100644 --- a/kmop/kmop.lisp +++ b/kmop/kmop.lisp @@ -31,6 +31,8 @@ (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 (find-symbol (mkstr class-sym)