anchor.diff:  	     :ACCESSOR testtime :INITARG
   	     :testtime :INITFORM COMMON-LISP:NIL
   	     :DB-TYPE "timestamp without time zone")))
  +
  +(def-dataset *ds-datetest*
  +  (:setup (lambda () (clsql-sys:create-view-from-class 'datetest)))
  +  (:cleanup "DROP TABLE datetest"))
  +
  +
  +(def-dataset *cross-platform-datetest*
  +  (:setup (lambda () (create-table [datetest]
  +				   '(([testtime] wall-time)))))
  +  (:cleanup (lambda ()
  +	      (drop-table [datetest]))))
  +
   
   (setq *rt-time*
         '(
  
positive.code: 
  (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
  
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)
  	  )))
  