Include some more new stuff.
[clinton/lisp-on-lines.git] / src / display-test.lisp
index 7bef6ef..91068bd 100644 (file)
@@ -13,9 +13,9 @@
 
   (let ((before (display-using-description 
                 (find-description 'attribute-test-2) 
-                nil *object*)))
+                nil :foo)))
     (with-active-layers (test-display)
       (is (equalp "BRILLANT!" (display-using-description 
                               (find-description 'attribute-test-2) 
-                              nil *object*))))))
+                              nil :foo))))))
                  
\ No newline at end of file