(declare (ignore database db-type))
val)
+(defmethod database-output-sql ((self wall-time) (database generic-postgresql-database))
+ (declare (ignore database))
+ (concatenate 'string "'" (format-time nil self :format :iso8601) "'"))
+
+(defmethod database-output-sql ((self date) (database generic-postgresql-database))
+ (declare (ignore database))
+ (concatenate 'string "'" (format-time nil (date->time self) :format :iso8601) "'"))
+
(defmethod database-get-type-specifier (type args database
(db-type (eql :postgresql)))
(declare (ignore type args database))
(if stream
(write-string string stream)
string)))
+ (:iso8601
+ (format stream "~4,'0D-~2,'0D-~2,'0DT~2,'0D:~2,'0D:~2,'0D.~DZ"
+ year month day hour minute second usec))
(t
(format stream "~2,'0D~A~2,'0D~A~2,'0D~A~2,'0D~A~2,'0D~A~2,'0D.~6,'0D"
year date-separator month date-separator day