anchor.diff:        ;; update records
         (push
          (clsql:with-transaction ()
  -         (clsql:update-records [employee]
  -                              :av-pairs '((email "lenin-nospam@soviet.org"))
  -                              :where [= [emplid] 1]))
  +	 (clsql:update-records [employee]
  +			      :av-pairs '((email "lenin-nospam@soviet.org"))
  +			      :where [= [emplid] 1]))
          results)
         ;; check status
         (push (clsql:in-transaction-p) results)
         ;; check that was committed
         (push (clsql:select [email] :from [employee] :where [= [emplid] 1]
  -                         :flatp t)
  -            results)
  +			 :flatp t)
  +	    results)
         ;; undo the changes
         (push
          (clsql:with-transaction ()
  -         (clsql:update-records [employee]
  -                              :av-pairs '((email "lenin@soviet.org"))
  -                              :where [= [emplid] 1]))
  +	 (clsql:update-records [employee]
  +			      :av-pairs '((email "lenin@soviet.org"))
  +			      :where [= [emplid] 1]))
          results)
         ;; and check status
         (push (clsql:in-transaction-p) results)
         ;; check that was committed
         (push (clsql:select [email] :from [employee] :where [= [emplid] 1]
  -                         :flatp t)
  -            results)
  +			 :flatp t)
  +	    results)
         (apply #'values (nreverse results)))
     nil nil nil ("lenin-nospam@soviet.org") nil nil ("lenin@soviet.org"))
   
  
positive.code: 
  (deftest :fdml/select/30
   (clsql:select [first-name] [last-name] :from [employee]
                         :result-types nil :field-names nil
                         :order-by '(([first-name] :asc) ([last-name] :asc)))
   (("Boris" "Yeltsin") ("Josef" "Stalin") ("Konstantin" "Chernenko")
    ("Leon" "Trotsky") ("Leonid" "Brezhnev") ("Mikhail" "Gorbachev")
    ("Nikita" "Kruschev") ("Vladimir" "Lenin") ("Vladimir" "Putin")
  
negative.code:        :where [= [last-name] "Putin"])
        ;;Should be new value
        (push (clsql:select [email] :from [employee]
  			 :where [= [last-name] "Putin"]
  			 :flatp t)
  	    results)
        ;;Oh no, he's still there
        (clsql:rollback)
        ;; test that we are out of the transaction
        (push (clsql:in-transaction-p) results)
        ;; Check that we got him back alright
        (push (clsql:select [email] :from [employee] :where [= [last-name] "Putin"]
  			 :flatp t)
  	    results)
        (apply #'values (nreverse results)))
    nil t ("putin-nospam@soviet.org") nil ("putin@soviet.org"))
  
  