Added standard descriptions and UCW integration.

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

diff --git a/src/standard-descriptions/list.lisp b/src/standard-descriptions/list.lisp
new file mode 100644 (file)
index 0000000..71c65f2
--- /dev/null
+++ b/src/standard-descriptions/list.lisp
@@ -0,0 +1,20 @@
+(in-package :lisp-on-lines)
+
+(define-description cons ()
+  ((car :label "First" :function #'car)
+   (cdr :label "Rest"  :function #'cdr)))
+
+(define-description cons ()
+  ((editp :value t :editp nil)
+   (car :setter #'rplaca)
+   (cdr :setter #'rplacd))
+  (:in-description editable))
+
+(define-layered-method description-of ((c cons))
+ (find-description 'cons))
+                      
+
+
+
+
+