anchor.diff:  	    (values
   	      (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))))
   		(setf (slot-value sl 'title) "Altered subloc title")
   		(setf (slot-value sl 'loc) "Altered loc")
   		(clsql:update-records-from-instance sl)
   		(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))))
   		(setf (slot-value sl 'title) "subloc-1")
   		(setf (slot-value sl 'loc) "a subloc")
   		(clsql:update-records-from-instance sl)
  
positive.code: 	    (values
  	      (print-fresh-theme)
  	      (let ((node (car (clsql:select 'setting
  				 :where [= [slot-value 'setting 'setting-id]
  					   6]
  				 :flatp t
  				 :caching nil))))
  		(setf (slot-value node 'title) "Altered title")
  		(setf (slot-value node 'vars) nil)
  		(clsql:update-records-from-instance node)
  		(print-fresh-theme))
  	      (let ((node (car (clsql:select 'theme
  				 :where [= [slot-value 'theme 'theme-id]
  					   6]
  				 :flatp t
  				 :caching nil))))
  		(setf (slot-value node 'title) "Altered title again")
  		(setf (slot-value node 'doc) "altered doc")
  		(clsql:update-records-from-instance node)
  		(print-fresh-theme))
  	      (let ((node (car (clsql:select 'theme
  				 :where [= [slot-value 'theme 'theme-id]
  					   6]
  				 :flatp t
  				 :caching nil))))
  		(setf (slot-value node 'title) "theme-1")
  		(setf (slot-value node 'vars) "empty")
  		(setf (slot-value node 'doc) "first theme")
  
negative.code: 	(deftest :oodml/update-records/9
  	  (flet ((print-fresh-subloc ()
  		   (let ((sl (car (clsql:select 'subloc
  				    :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)
  