1 (in-package :lisp-on-lines
)
3 (define-description cons
()
4 ((car :label
"First" :function
#'car
)
5 (cdr :label
"Rest" :function
#'cdr
)))
7 (define-description cons
()
8 ((editp :value t
:editp nil
)
10 (cdr :setter
#'rplacd
))
11 (:in-description editable
))
13 (define-layered-method description-of
((c cons
))
14 (find-description 'cons
))