From: drewc <drewc@tech.coop>
Date: Sat, 27 Sep 2008 20:40:28 +0000 (-0700)
Subject: Add NULL description
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/a5a635a2ec9a1187c8ebd30c0baab32dd70bd593?ds=sidebyside

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
--- 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
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