4358148e |
1 | (in-package :lisp-on-lines) |
2 | |
3 | (define-layered-method description-of ((symbol symbol)) |
4 | (find-description 'symbol)) |
5 | |
6 | (define-description symbol () |
6de8d300 |
7 | ((identity :label nil) |
4358148e |
8 | (name |
9 | :function #'symbol-name |
b1c8f43b |
10 | :label "Name") |
4358148e |
11 | (value |
b1c8f43b |
12 | :label "Value" |
4358148e |
13 | :function |
14 | (lambda (symbol) |
15 | (if (boundp symbol) |
16 | (symbol-value symbol) |
17 | "<UNBOUND>"))) |
18 | (package :function #'symbol-package |
b1c8f43b |
19 | :label "Package") |
20 | (function :label "Function" |
4358148e |
21 | :function |
22 | (lambda (symbol) |
23 | (if (fboundp symbol) |
24 | (symbol-function symbol) |
25 | "<UNBOUND>"))))) |