;; (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
(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]