From a5a635a2ec9a1187c8ebd30c0baab32dd70bd593 Mon Sep 17 00:00:00 2001 From: drewc Date: Sat, 27 Sep 2008 13:40:28 -0700 Subject: [PATCH 1/1] Add NULL description darcs-hash:20080927204028-39164-8068c086078d4b51ccfd2d38f1f66cd0e6f03f1b.gz --- src/standard-descriptions/edit.lisp | 3 ++- src/standard-descriptions/null.lisp | 7 +++++++ 2 files changed, 9 insertions(+), 1 deletion(-) create mode 100644 src/standard-descriptions/null.lisp 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 -- 2.20.1