Misc Cleanups.
[clinton/lisp-on-lines.git] / src / standard-descriptions / edit.lisp
index f7e0411..f1ec4cf 100644 (file)
     (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 ()