Error handling fixes
[clinton/lisp-on-lines.git] / src / standard-descriptions / list.lisp
CommitLineData
4358148e 1(in-package :lisp-on-lines)
2
3(define-description cons ()
4 ((car :label "First" :function #'car)
5 (cdr :label "Rest" :function #'cdr)))
6
7(define-description cons ()
8 ((editp :value t :editp nil)
9 (car :setter #'rplaca)
10 (cdr :setter #'rplacd))
11 (:in-description editable))
12
13(define-layered-method description-of ((c cons))
14 (find-description 'cons))
15
16
17
18
19
20