anchor.diff:  	(deftest :oodml/update-records/9
   	  (flet ((print-fresh-subloc ()
   		   (let ((sl (car (clsql:select 'subloc
  -				    :where [= [slot-value 'subloc 'subloc-id]
  -					      10]
  -				    :flatp t
  -				    :caching nil))))
  +				    :where [= 10 [slot-value 'subloc 'subloc-id]]
  +				    :flatp t :caching nil))))
   		     (format nil "~a ~a ~a"
   			     (slot-value sl 'subloc-id)
   			     (slot-value sl 'title)
  
positive.code:         (deftest :oodml/update-records/6
  	  (flet ((print-fresh-setting ()
  		   (let ((node (car (clsql:select 'setting
  				      :where [= [slot-value 'setting 'setting-id]
  						7]
  				      :flatp t
  				      :caching nil))))
  		     (format nil "~a ~a ~a"
  			     (slot-value node 'setting-id)
  			     (slot-value node 'title)
  			     (slot-value node 'vars)))
  		   ))
  	    (values
  	      (print-fresh-setting)
  	      (let ((node (car (clsql:select 'setting
  				 :where [= [slot-value 'setting 'setting-id]
  					   7]
  				 :flatp t
  				 :caching nil))))
  		(setf (slot-value node 'title) "Altered title")
  		(setf (slot-value node 'vars) "Altered vars")
  		(clsql:update-records-from-instance node)
  		(print-fresh-setting))
  	      (let ((node (car (clsql:select 'setting
  				 :where [= [slot-value 'setting 'setting-id]
  					   7]
  				 :flatp t
  				 :caching nil))))
  		(setf (slot-value node 'title) "theme-2")
  		(setf (slot-value node 'vars) nil)
  		(clsql:update-records-from-instance node)
  
negative.code: 	    (values
  	      (print-fresh-setting)
  	      (let ((node (car (clsql:select 'setting
  				 :where [= 3 [slot-value 'setting 'setting-id]]
  				 :flatp t :caching nil))))
  		(setf (slot-value node 'title) "Altered title")
  		(setf (slot-value node 'vars) "Altered vars")
  		(clsql:update-records-from-instance node)
  		(print-fresh-setting))
  	      (let ((node (car (clsql:select 'setting
  				 :where [= 3 [slot-value 'setting 'setting-id]]
  				 :flatp t :caching nil))))
  		(setf (slot-value node 'title) "Setting2")
  		(setf (slot-value node 'vars) "var 2")
  		(clsql:update-records-from-instance node)
  