From: Kevin Rosenberg <kevin@rosenberg.net>
Date: Sat, 6 Feb 2010 16:21:58 +0000 (-0700)
Subject: Ensure that *print-circle* is nil for comparing output of FORMAT.
X-Git-Tag: v5.0.0~5
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=a288098897afcc735a99d11999dbb30ce825d892;hp=109e949e6ab88e4525db10ed914d9f10e6c2c2b9

Ensure that *print-circle* is nil for comparing output of FORMAT.
---

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]