Misc Cleanups.

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

diff --git a/src/standard-descriptions/edit.lisp b/src/standard-descriptions/edit.lisp
index ab1dd39..f1ec4cf 100644 (file)
--- a/src/standard-descriptions/edit.lisp
+++ b/src/standard-descriptions/edit.lisp
@@ -39,17 +39,24 @@
     (or class (when 
                  (and type (symbolp type)) 
                (let ((name (format nil "~A-~A" type 'attribute-editor)))
-                 (or (find-class (intern name (symbol-package type)) nil)
+                 (or (unless (eq (find-package :cl)
+                                 (symbol-package type)) 
+                       (find-class (intern name (symbol-package type)) nil))
                      (find-class (intern name) nil)
+                     (find-class (intern name :lol) nil)
                      '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
             :initform 'identity
             :accessor attribute-editor-parsing-function)
+     (attributes :initarg :attributes
+                :initform nil
+                :accessor attribute-editor-attributes)
      (prompt :initarg :prompt 
             :initform nil)
      (unbound-value