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

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 978d1fd..dadbfcb 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -597,7 +597,7 @@
 ;; (was failing in Postgresql at somepoint)
 (deftest :oodml/update-records/10
     (with-dataset *ds-employees*
-      (let ((emp (first (clsql:select 'employee :where [= [emplid] 1] :flatp T))))
+      (let ((emp (first (clsql:select 'employee :where [= [emplid] 1] :flatp t))))
 	(setf (height emp) nil)
 	(clsql-sys:update-record-from-slot emp 'height)
 	(values
@@ -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]