X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-postgresql%2Fpostgresql-sql.lisp;fp=db-postgresql%2Fpostgresql-sql.lisp;h=0dc3f57d2a3e1585f89820d1fd4eb5cfa8a9c542;hp=2bb7fb12efcb9306afa1bbc7de037d276f8cddaf;hb=e303385b84c6246c7d60ebd95d764a282a181a23;hpb=21ffe5f820036726c6353a16dfb478fb41aa700c

diff --git a/db-postgresql/postgresql-sql.lisp b/db-postgresql/postgresql-sql.lisp
index 2bb7fb1..0dc3f57 100644
--- a/db-postgresql/postgresql-sql.lisp
+++ b/db-postgresql/postgresql-sql.lisp
@@ -444,16 +444,15 @@
                            owner-clause)
                    database nil nil))))
     (if result
-	(reverse
-         (remove-if #'(lambda (it) (member it '("cmin"
-                                                "cmax"
-                                                "xmax"
-                                                "xmin"
-						"oid"
-                                                "ctid"
-						;; kmr -- added tableoid
-						"tableoid") :test #'equal)) 
-		    result)))))
+        (remove-if #'(lambda (it) (member it '("cmin"
+                                               "cmax"
+                                               "xmax"
+                                               "xmin"
+                                               "oid"
+                                               "ctid"
+                                               ;; kmr -- added tableoid
+                                               "tableoid") :test #'equal)) 
+                   result))))
 
 (defmethod database-attribute-type (attribute (table string)
 				    (database postgresql-database)