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 f7e0411..f1ec4cf 100644 (file)
--- a/src/standard-descriptions/edit.lisp
+++ b/src/standard-descriptions/edit.lisp
@@ -39,8 +39,11 @@
     (or class (when 
                  (and type (symbolp type)) 
                (let ((name (format nil "~A-~A" type 'attribute-editor)))
     (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) nil)

+                     (find-class (intern name :lol) nil)

                      'string-attribute-editor))))))
 
 (defclass attribute-editor ()
                      'string-attribute-editor))))))
 
 (defclass attribute-editor ()