anchor.diff:  				  :values (list time))
   	(let ((testtime
   	       (first (clsql:select [testtime]
  -				    :from [datetest]
  -				    :limit 1 :flatp T
  +				    :from [datetest] :flatp T
   				    :where [= [testtime] time] ))))
   	  (format-time nil (parse-timestring testtime) :format :iso)
   	  )))
  
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: 	     :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*
        '(
  