+
+(deftest test-attribute-with-different-class ()
+ (eval '(progn
+;;;; We cannot ever redefine this class ic think...
+;;; as attributes are also slot meta-objects.
+ (unless (find-class 'test-attribute-class nil)
+ (define-layered-class
+ test-attribute-class (lol::standard-attribute)
+ ((some-slot :initarg :some-slot :layered-accessor some-slot))))
+
+ (define-description test-attribute-with-different-class-description ()
+ ((attribute-with-different-class :attribute-class test-attribute-class :some-slot "BRILLANT!")))))
+
+ (let* ((d (find-description 'test-attribute-with-different-class-description))
+
+ (a (find-attribute d 'attribute-with-different-class)))
+ (is (eq (class-of a)
+ (find-class 'test-attribute-class)))
+ (is (equalp "BRILLANT!" (some-slot a)))))
+
+
+