anchor.diff:  				 :limit 1 :flatp T
   				 :where [= [testtime] time] ))
   	  (assert (time= (parse-timestring testtimetz) time) (testtimetz time)
  -		  "Timetz of o: ~s should be time:~s" testtimetz time)
  +		  "Timetz of db: ~s should be time:~s" testtimetz time)
   	  (assert (time= (parse-timestring testtime) time) (testtime time)
  -		  "Time of o: ~s should be time:~s" testtime time))))
  +		  "Time of db: ~s should be time:~s" testtime time))))
     nil)
   
   (deftest :time/pg/oodml/no-usec
  
positive.code: 	       :DB-CONSTRAINTS COMMON-LISP:NIL
  	       :ACCESSOR testtimetz :INITARG
  	       :testtimetz :INITFORM COMMON-LISP:NIL
  	       :DB-TYPE "timestamptz")
     (testtime :COLUMN "testtime" :TYPE
  	     clsql-sys:wall-time :DB-KIND :BASE
  	     :DB-CONSTRAINTS COMMON-LISP:NIL
  	     :ACCESSOR testtime :INITARG
  	     :testtime :INITFORM COMMON-LISP:NIL
  	     :DB-TYPE "timestamp")))
  
  (setq *rt-time*
        '(
  
negative.code: 	  (format-time nil (parse-timestring testtime) :format :iso)
  	  )))
    #.(format-time nil (parse-timestring "2008-09-09T14:37:29.000213-04:00") :format :iso))
  
  
  
  
  