remobe ROFL and add validation

[clinton/lisp-on-lines.git] / src / standard-descriptions / symbol.lisp

diff --git a/src/standard-descriptions/symbol.lisp b/src/standard-descriptions/symbol.lisp
index 300b481..e5d2018 100644 (file)
--- 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)
          "<UNBOUND>")))
    (package :function #'symbol-package
-           :label "Package:")
-   (function :label "Function:"
+           :label "Package")
+   (function :label "Function"
     :function               
     (lambda (symbol)
      (if (fboundp symbol)