From a288098897afcc735a99d11999dbb30ce825d892 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Sat, 6 Feb 2010 09:21:58 -0700 Subject: [PATCH] Ensure that *print-circle* is nil for comparing output of FORMAT. --- tests/test-oodml.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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] -- 2.34.1