anchor.diff:  	    (values
   	      (print-fresh-setting)
   	      (let ((node (car (clsql:select 'setting
  -				 :where [= [slot-value 'setting 'setting-id]
  -					   3]
  -				 :flatp t
  -				 :caching nil))))
  +				 :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 [= [slot-value 'setting 'setting-id]
  -					   3]
  -				 :flatp t
  -				 :caching nil))))
  +				 :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)
  
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: 	    (values
  	      (print-fresh-subloc)
  	      (let ((sl (car (clsql:select 'subloc
  			       :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 [= 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)
  