From: espen Date: Thu, 2 Feb 2006 23:00:28 +0000 (+0000) Subject: Inspection of symbols now works X-Git-Tag: clg-0-92~103 X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/59aecf50999369f4acbb23e642fcb138f5ff99f1 Inspection of symbols now works --- diff --git a/examples/ginspect.lisp b/examples/ginspect.lisp index a5dd6c7..f07e87e 100644 --- a/examples/ginspect.lisp +++ b/examples/ginspect.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: ginspect.lisp,v 1.6 2006/02/02 22:48:53 espen Exp $ +;; $Id: ginspect.lisp,v 1.7 2006/02/02 23:00:28 espen Exp $ (in-package :gtk) @@ -108,15 +108,16 @@ (defmethod decompose-describe-object ((object (eql *ginspect-unbound-object-mark (defmethod decompose-describe-object ((object symbol)) (values (call-next-method) t - (cons "Name" (symbol-name object)) - (cons "Package" (symbol-package object)) - (cons "Value" (if (boundp object) - (symbol-value object) - *ginspect-unbound-object-marker*)) - (cons "Function" (if (fboundp object) - (symbol-function object) - *ginspect-unbound-object-marker*)) - (cons "Plist" (symbol-plist object)))) + (list + (cons "Name" (symbol-name object)) + (cons "Package" (symbol-package object)) + (cons "Value" (if (boundp object) + (symbol-value object) + *ginspect-unbound-object-marker*)) + (cons "Function" (if (fboundp object) + (symbol-function object) + *ginspect-unbound-object-marker*)) + (cons "Plist" (symbol-plist object))))) #+cmu (defmethod decompose-describe-object ((object standard-object))