X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=dadbfcbe6d542d753d7b20c80c21f562b5d22a30;hb=0ad64f85ff6cd99a78cc9ae6716ebbdb5627eaef;hp=2fed92172ac1dd7f8f0eabf17ba531e1fbabe8f1;hpb=052344686f925a617f74fcd1b83489f2edcf071a;p=clsql.git

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 2fed921..dadbfcb 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -970,7 +970,8 @@
       (values
 	(let ((inst (make-instance 'theme
 				   :title "test-theme" :vars "test-vars"
-				   :doc "test-doc")))
+				   :doc "test-doc"))
+              (*print-circle* nil))
 	  (setf (slot-value inst 'title) "alternate-test-theme")
 	  (format nil "~a ~a ~a ~a"
 		  (or (select [title] :from [node]