X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/4358148e6c67fcc2ae24050c54d8050b4dc03f9d..e8fd1a9a2f3b68a8aee14b8776ff8398ba717eef:/src/standard-descriptions/symbol.lisp diff --git a/src/standard-descriptions/symbol.lisp b/src/standard-descriptions/symbol.lisp index 300b481..e5d2018 100644 --- a/src/standard-descriptions/symbol.lisp +++ b/src/standard-descriptions/symbol.lisp @@ -4,20 +4,20 @@ (find-description 'symbol)) (define-description symbol () - ((identity :label "Symbol:") + ((identity :label nil) (name :function #'symbol-name - :label "Name:") + :label "Name") (value - :label "Value:" + :label "Value" :function (lambda (symbol) (if (boundp symbol) (symbol-value symbol) ""))) (package :function #'symbol-package - :label "Package:") - (function :label "Function:" + :label "Package") + (function :label "Function" :function (lambda (symbol) (if (fboundp symbol)