X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/4358148e6c67fcc2ae24050c54d8050b4dc03f9d..6de8d30004efc9337b8c40d2ff2d0a76651d23eb:/src/attribute-test.lisp

diff --git a/src/attribute-test.lisp b/src/attribute-test.lisp
index 632cba7..279151f 100644
--- a/src/attribute-test.lisp
+++ b/src/attribute-test.lisp
@@ -48,15 +48,18 @@
 		    (attribute-value nil (find-attribute d 'attribute-2))))
 	(is (equalp "VALUE2" (attribute-value nil (find-attribute d 'attribute-1))))))))
 
-(deftest test-attribute-with-different-class ()
+(deftest (test-attribute-with-different-class :compile-before-run t) ()
   (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-layered-class
+		test-attribute-class (lol::standard-attribute)
+		((some-slot :initarg :some-slot 
+			    :layered t 
+			    :layered-accessor some-slot)))
+	  
 	  (define-description test-attribute-with-different-class-description ()
 	    ((attribute-with-different-class :attribute-class test-attribute-class :some-slot "BRILLANT!")))))