Add NULL description

darcs-hash:20080927204028-39164-8068c086078d4b51ccfd2d38f1f66cd0e6f03f1b.gz

diff --git a/src/standard-descriptions/edit.lisp b/src/standard-descriptions/edit.lisp
index ab1dd39..3c04a92 100644 (file)
--- a/src/standard-descriptions/edit.lisp
+++ b/src/standard-descriptions/edit.lisp
@@ -44,7 +44,8 @@
                      'string-attribute-editor))))))
 
 (defclass attribute-editor ()
-    ((type :initarg :type
+    ((class :initarg :class)
+     (type :initarg :type
           :initform 'string
           :accessor attribute-editor-type)
      (parser :initarg :parse-using

diff --git a/src/standard-descriptions/null.lisp b/src/standard-descriptions/null.lisp
new file mode 100644 (file)
index 0000000..8c9161a
--- /dev/null
+++ b/src/standard-descriptions/null.lisp
@@ -0,0 +1,7 @@
+(in-package :lisp-on-lines)
+
+(define-description null (symbol list)
+  ())
+
+(define-layered-method description-of ((object null))
+ (find-description 'null))
\ No newline at end of file