anchor.diff:  
   (in-package #:clsql-tests)
   #.(clsql-sys:locally-enable-sql-reader-syntax)
  -
  -(def-dataset *ds-datetest*
  -  (:setup (lambda () (clsql-sys:create-view-from-class 'datetest)))
  -  (:cleanup "DROP TABLE datetest"))
  -
  -(def-dataset *cross-platform-datetest*
  -  (:setup "CREATE TABLE DATETEST (TESTTIME TIMESTAMP)")
  -  (:cleanup "DROP TABLE DATETEST"))
   
   (def-view-class datetest ()
     ((testtimetz :COLUMN "testtimetz" :TYPE
  
positive.code: 				  :values (list time))
  	(let ((testtime
  	       (first (clsql:select [testtime]
  				    :from [datetest]
  				    :limit 1 :flatp T
  				    :where [= [testtime] time] ))))
  	  (format-time nil (parse-timestring testtime) :format :iso)
  	  )))
  
negative.code: 				  :values (list time))
  	(let ((testtime
  	       (first (clsql:select [testtime]
  				    :from [datetest] :flatp T
  				    :where [= [testtime] time] ))))
  	  (format-time nil (parse-timestring testtime) :format :iso)
  	  )))
  