src/standard-descriptions/list.lisp

   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